c
c Information Technology Laboratory, National Institute of 
c Standards and Technology, 325 Broadway, Mail Stop 891.01, 
c Boulder, CO 80305-3328. email: zydrunas.gimbutas@nist.gov. 
c Contributions by staff of NIST, an agency of the U.S. Government, 
c are not subject to copyright within the United States.

c NIST-developed software is provided by NIST as a public service. 
c You may use, copy, and distribute copies of the software in any medium, 
c provided that you keep intact this entire notice. You may improve, 
c modify, and create derivative works of the software or any portion of 
c the software, and you may copy and distribute such 
c modifications or works. Modified works should carry a notice stating 
c that you changed the software and should note the date and nature 
c of any such change. Please explicitly acknowledge the National 
c Institute of Standards and Technology as the source of the software. 

c NIST-developed software is expressly provided "AS IS." 
c NIST MAKES NO WARRANTY OF ANY KIND, EXPRESS, IMPLIED, IN FACT, OR 
c ARISING BY OPERATION OF LAW, INCLUDING, WITHOUT LIMITATION, THE 
c IMPLIED WARRANTY OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, 
c NON-INFRINGEMENT, AND DATA ACCURACY. NIST NEITHER REPRESENTS NOR 
c WARRANTS THAT THE OPERATION OF THE SOFTWARE WILL BE UNINTERRUPTED 
c OR ERROR-FREE, OR THAT ANY DEFECTS WILL BE CORRECTED. NIST DOES NOT
c WARRANT OR MAKE ANY REPRESENTATIONS REGARDING THE USE OF THE 
c SOFTWARE OR THE RESULTS THEREOF, INCLUDING BUT NOT LIMITED TO THE 
c CORRECTNESS, ACCURACY, RELIABILITY, OR USEFULNESS OF THE SOFTWARE.
c
c You are solely responsible for determining the appropriateness of 
c using and distributing the software and you assume all risks 
c associated with its use, including but not limited to the risks 
c and costs of program errors, compliance with applicable laws, damage 
c to or loss of data, programs or equipment, and the unavailability 
c or interruption of operation. This software is not intended to be 
c used in any situation where a failure could cause risk of injury 
c or damage to property. The software developed by NIST employees is 
c not subject to copyright protection within the United States.


ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c     This file contains the exponential representation routines for
c     Laplace kernels, tables for full double precision accuracy
c
c     Tables for separation by 2 case.
c
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c
c       
c lwtsexp2sep2 - exponential representation for 1/z in R^2
c       1/s = \int_0^{+\infty} exp(-st) dt
c       s = u+i*v, u in [2,6], v in [0, 6]
c       tables for n=2..45, up to 24 digits
c
c lwtsexp3sep2 - exponential representation for 1/z (can be used for 1/r in R^3)
c       1/s = \int_0^{+\infty} exp(-st) dt
c       s = u+i*v, u in [2,6], v in [0, 6*sqrt(2)]
c       tables for n=2..45, up to 19 digits
c       
c
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c
c
c
c
        subroutine lwtsexp2sep2(n,xs,ws,err)
        implicit real *8 (a-h,o-z)
        dimension xs(*),ws(*)
c       
c       This subroutine returns the nodes and weights for 
c       the exponential representation 
c
c       1/s = \int_0^{+\infty} exp(-st) dt
c
c       s = u+i*v, u in [2,6], v in [0, 6]
c
c       Input parameter:
c       
c       n - the number of nodes
c
c       Output parameters:
c
c       xs - the nodes: real *8 (n)
c       ws - the weights: real *8 (n)
c       err - approximation error
c
        if( n .lt. 2 .or. n .gt. 45 ) return

        if( n .eq.  2 ) then
        err = .780491930742828D-01
        xs( 1) = 0.16791363753924063325339066884818D+00
        xs( 2) = 0.69350409608244898642752383905105D+00
        ws( 1) = 0.41722002819646280422881305371382D+00
        ws( 2) = 0.74607236973772299488274437026776D+00
        endif
        if( n .eq.  3 ) then
        err = .253074052174212D-01
        xs( 1) = 0.14736199015224744985320296418984D+00
        xs( 2) = 0.63778973434226797253781955919311D+00
        xs( 3) = 0.12830577600161507957029816994427D+01
        ws( 1) = 0.35852338096065361437436699312462D+00
        ws( 2) = 0.61933742476421072806466027824979D+00
        ws( 3) = 0.73303007281584979135297054884974D+00
        endif
        if( n .eq.  4 ) then
        err = .113260451172695D-01
        xs( 1) = 0.10708743257600804687281131033365D+00
        xs( 2) = 0.49681004703569518241328115014567D+00
        xs( 3) = 0.11030365079572443228437113726243D+01
        xs( 4) = 0.18212970561181550918635584471489D+01
        ws( 1) = 0.26217029735691747984433470783725D+00
        ws( 2) = 0.51399732595736574991720329950253D+00
        ws( 3) = 0.68913370278780078180250774598776D+00
        ws( 4) = 0.80547807613043181992793862839729D+00
        endif
        if( n .eq.  5 ) then
        err = .246029697099440D-02
        xs( 1) = 0.80936031468764357661865280852236D-01
        xs( 2) = 0.40543211998438971321695933399764D+00
        xs( 3) = 0.93572259163014457518658184185305D+00
        xs( 4) = 0.16188948158179315789103705796301D+01
        xs( 5) = 0.24088479394625814306308867860553D+01
        ws( 1) = 0.20440092240922874188290829642477D+00
        ws( 2) = 0.43732043759020208752354062237984D+00
        ws( 3) = 0.61505038282078360554571904915609D+00
        ws( 4) = 0.75200324953350319429797206808034D+00
        ws( 5) = 0.90249584345504294271035137313069D+00
        endif
        if( n .eq.  6 ) then
        err = .567623688062189D-03
        xs( 1) = 0.71958812597570912404878277503084D-01
        xs( 2) = 0.36225561243709877690364669320898D+00
        xs( 3) = 0.83702073134848835927191485425972D+00
        xs( 4) = 0.14527676679012279856474350189509D+01
        xs( 5) = 0.21777005181864086860622823339885D+01
        xs( 6) = 0.29907597159366991481199652203610D+01
        ws( 1) = 0.18239252562949384526650825772301D+00
        ws( 2) = 0.39049310246905139356528173061295D+00
        ws( 3) = 0.55187038937300879622741308498286D+00
        ws( 4) = 0.67522628738514960161926951192662D+00
        ws( 5) = 0.77878036240263234815513710205633D+00
        ws( 6) = 0.92569779707117635475136478608674D+00
        endif
        if( n .eq.  7 ) then
        err = .262478731589189D-03
        xs( 1) = 0.66432774007345748067786148660928D-01
        xs( 2) = 0.33472635724132667004320763210121D+00
        xs( 3) = 0.77514982322771476017345310735056D+00
        xs( 4) = 0.13513059063337324875730389261197D+01
        xs( 5) = 0.20352897461246592125920146566469D+01
        xs( 6) = 0.28070267897059102838795912475601D+01
        xs( 7) = 0.36474765425242529397324529170105D+01
        ws( 1) = 0.16846135198451974796337210079949D+00
        ws( 2) = 0.36108990156058588676869758933172D+00
        ws( 3) = 0.51372109952138813154490776134983D+00
        ws( 4) = 0.63409468409315437286821187448790D+00
        ws( 5) = 0.73139580650374941342013360139226D+00
        ws( 6) = 0.81597738754406754371456847418286D+00
        ws( 7) = 0.93829906925684186279005211982655D+00
        endif
        if( n .eq.  8 ) then
        err = .703587979573938D-04
        xs( 1) = 0.58500187036412841100535464250243D-01
        xs( 2) = 0.29607464772501633990341965053460D+00
        xs( 3) = 0.69010865813932578431066720147798D+00
        xs( 4) = 0.12130992517790778054480908869975D+01
        xs( 5) = 0.18436856752176287841541390194384D+01
        xs( 6) = 0.25654321374055613291986626406847D+01
        xs( 7) = 0.33673894932969462994504611870677D+01
        xs( 8) = 0.42395406160961567718228633562300D+01
        ws( 1) = 0.14852162696829477492309922080471D+00
        ws( 2) = 0.32104009392703732382147904135582D+00
        ws( 3) = 0.46249342263375385583267738856994D+00
        ws( 4) = 0.57997856937713966725950803173664D+00
        ws( 5) = 0.67853630602076869391610789970096D+00
        ws( 6) = 0.76386001244586533695031597129830D+00
        ws( 7) = 0.84453189398767503317348673429021D+00
        ws( 8) = 0.96970808158392606272943641637683D+00
        endif
        if( n .eq.  9 ) then
        err = .145255733708207D-04
        xs( 1) = 0.50723465027033003214596282266305D-01
        xs( 2) = 0.25943728910074433330865128607600D+00
        xs( 3) = 0.61221430775406811619464435790555D+00
        xs( 4) = 0.10880454937568419911105903994708D+01
        xs( 5) = 0.16689798252281629254110309650345D+01
        xs( 6) = 0.23399414761743197954874760439055D+01
        xs( 7) = 0.30899376995215477143892618253614D+01
        xs( 8) = 0.39132149974398844756304339548869D+01
        xs( 9) = 0.48081285506132847038172916395991D+01
        ws( 1) = 0.12915544591455503968567699037997D+00
        ws( 2) = 0.28452843833109197784006040591898D+00
        ws( 3) = 0.41751839380260478317836696239281D+00
        ws( 4) = 0.53116600168768615888128350347501D+00
        ws( 5) = 0.62818188776666899158547324901623D+00
        ws( 6) = 0.71198616451374653870319185573432D+00
        ws( 7) = 0.78765979644979906037400253607617D+00
        ws( 8) = 0.86385867376761151679637264374249D+00
        ws( 9) = 0.99537991229112844744893717829523D+00
        endif
        if( n .eq. 10 ) then
        err = .423253441201434D-05
        xs( 1) = 0.46500991031471593651834734984641D-01
        xs( 2) = 0.23919605888751307029047360374400D+00
        xs( 3) = 0.56779822462793265807617849635119D+00
        xs( 4) = 0.10137152845258148056676295662254D+01
        xs( 5) = 0.15604149953780833976476451366227D+01
        xs( 6) = 0.21937232554550981095646647520667D+01
        xs( 7) = 0.29024023401858780989626823385367D+01
        xs( 8) = 0.36788683531957483436574789008137D+01
        xs( 9) = 0.45199557897507602774892399251661D+01
        xs(10) = 0.54270716055214291481830314194495D+01
        ws( 1) = 0.11860010721729835827977278107844D+00
        ws( 2) = 0.26384998085273353174876816446660D+00
        ws( 3) = 0.39020727570770374686814849075760D+00
        ws( 4) = 0.49887709785234195685107454179478D+00
        ws( 5) = 0.59215077599355218665073702684009D+00
        ws( 6) = 0.67259655814996546585405309539543D+00
        ws( 7) = 0.74357364089551919881275450273986D+00
        ws( 8) = 0.80937412466063650613872989033125D+00
        ws( 9) = 0.87782340351812950790914061539816D+00
        ws(10) = 0.10050292600429673965491558777884D+01
        endif
        if( n .eq. 11 ) then
        err = .142167678432282D-05
        xs( 1) = 0.43362438489717806166218867803205D-01
        xs( 2) = 0.22361891274791378799476993503792D+00
        xs( 3) = 0.53228949664754445504664086546904D+00
        xs( 4) = 0.95262643617140058515417368734959D+00
        xs( 5) = 0.14698714760567019435483115704101D+01
        xs( 6) = 0.20716002165650462001783782390075D+01
        xs( 7) = 0.27476263096098929308911846656301D+01
        xs( 8) = 0.34902975358293847797701013802023D+01
        xs( 9) = 0.42949054964843345773117912849233D+01
        xs(10) = 0.51602599196052509920718553217554D+01
        xs(11) = 0.60882976453987728625248062623866D+01
        ws( 1) = 0.11067655093299127945648734218126D+00
        ws( 2) = 0.24731005099507280458139536672968D+00
        ws( 3) = 0.36717367455191199125372319076555D+00
        ws( 4) = 0.47104537131502072817955734687382D+00
        ws( 5) = 0.56137683175922011051761926910960D+00
        ws( 6) = 0.64037932183950355025483115683735D+00
        ws( 7) = 0.71040380574908257759732093378137D+00
        ws( 8) = 0.77421820693998751901328004641028D+00
        ws( 9) = 0.83527616006822430071282616629589D+00
        ws(10) = 0.90020714626900528498581683839443D+00
        ws(11) = 0.10215894870474788650363306313119D+01
        endif
        if( n .eq. 12 ) then
        err = .336882872036769D-06
        xs( 1) = 0.40027571291096845946126317127883D-01
        xs( 2) = 0.20683559669319085995811444970029D+00
        xs( 3) = 0.49356668534501674828343730170444D+00
        xs( 4) = 0.88549032262440412643223978837664D+00
        xs( 5) = 0.13696284942314324336325117918549D+01
        xs( 6) = 0.19352160227417097283447326297113D+01
        xs( 7) = 0.25733011586515847987047789066879D+01
        xs( 8) = 0.32767361409550161953509393013455D+01
        xs( 9) = 0.40404825494830033012412440713400D+01
        xs(10) = 0.48621010886259746891903904200712D+01
        xs(11) = 0.57426805822918610925335247001708D+01
        xs(12) = 0.66880509031223461530882894116048D+01
        ws( 1) = 0.10222105055230362804982543568223D+00
        ws( 2) = 0.22924602550696654382690539513680D+00
        ws( 3) = 0.34169206219459241991116426846526D+00
        ws( 4) = 0.43999362577274103032253404169695D+00
        ws( 5) = 0.52649766661186045938214379649187D+00
        ws( 6) = 0.60318529796881520486922031108975D+00
        ws( 7) = 0.67179030574915639477385754097984D+00
        ws( 8) = 0.73424322645578315220183415365851D+00
        ws( 9) = 0.79289187276392725870313926465056D+00
        ws(10) = 0.85093073541714019405748711521890D+00
        ws(11) = 0.91516349671127230099543271789499D+00
        ws(12) = 0.10402678964098951480393930320549D+01
        endif
        if( n .eq. 13 ) then
        err = .105072428859202D-06
        xs( 1) = 0.36755701998512045536482679352520D-01
        xs( 2) = 0.19046744319847105895556830210893D+00
        xs( 3) = 0.45627235681150903637995968900453D+00
        xs( 4) = 0.82188083060565801729472330751642D+00
        xs( 5) = 0.12760881109439410479506832473063D+01
        xs( 6) = 0.18093602411182175617902443531286D+01
        xs( 7) = 0.24135047743378771354862831088023D+01
        xs( 8) = 0.30816019634612713453329979756943D+01
        xs( 9) = 0.38082410484867794522601754979091D+01
        xs(10) = 0.45898745455138004257820252746016D+01
        xs(11) = 0.54253434371787010536828977042511D+01
        xs(12) = 0.63169919126361734754594619067154D+01
        xs(13) = 0.72731012239959123715632193281491D+01
        ws( 1) = 0.93935366606796987681120576197688D-01
        ws( 2) = 0.21178066059677398945347484385655D+00
        ws( 3) = 0.31772027050275220832301496009414D+00
        ws( 4) = 0.41162620344751761250141566856576D+00
        ws( 5) = 0.49520745586014494326501878210275D+00
        ws( 6) = 0.56997229412186540734473917095633D+00
        ws( 7) = 0.63715932061856398350022237087969D+00
        ws( 8) = 0.69812928331829732052259997850288D+00
        ws( 9) = 0.75455913387416329674770908169994D+00
        ws(10) = 0.80855388894543840860602503577059D+00
        ws(11) = 0.86313026811301729873179075584447D+00
        ws(12) = 0.92515436908481199927676349789217D+00
        ws(13) = 0.10512750708749579904433031383044D+01
        endif
        if( n .eq. 14 ) then
        err = .298260110758243D-07
        xs( 1) = 0.34240405913824687009975649609849D-01
        xs( 2) = 0.17792050936903908777209724433134D+00
        xs( 3) = 0.42781865891669093801829688916956D+00
        xs( 4) = 0.77356868630460286424337591127793D+00
        xs( 5) = 0.12052119843350918895050036620217D+01
        xs( 6) = 0.17139952041304026858816954494805D+01
        xs( 7) = 0.22922584888048309772913723073739D+01
        xs( 8) = 0.29333511257470664046919663680182D+01
        xs( 9) = 0.36317565185796748518621413922665D+01
        xs(10) = 0.43833186084580231296873654650662D+01
        xs(11) = 0.51855229699204957756227706920146D+01
        xs(12) = 0.60379652006932258833604743935985D+01
        xs(13) = 0.69434201758698762270757066453216D+01
        xs(14) = 0.79102229390227293584749342960685D+01
        ws( 1) = 0.87569976961990334532884908805032D-01
        ws( 2) = 0.19844293927259238700246343409283D+00
        ws( 3) = 0.29957389084828586283594864441912D+00
        ws( 4) = 0.39025740315522853595147416299241D+00
        ws( 5) = 0.47157438306475429605474910903109D+00
        ws( 6) = 0.54471702566347604329918623583498D+00
        ws( 7) = 0.61069868180761417475395185157746D+00
        ws( 8) = 0.67056355506262031702751160267690D+00
        ws( 9) = 0.72555163102393301611677227007170D+00
        ws(10) = 0.77715447591263078013439297428220D+00
        ws(11) = 0.82722017154530583389882197192562D+00
        ws(12) = 0.87845096188375503269938515154446D+00
        ws(13) = 0.93726418981438112828197625568834D+00
        ws(14) = 0.10592473983044826471849477467200D+01
        endif
        if( n .eq. 15 ) then
        err = .862895251606640D-08
        xs( 1) = 0.32198801202111775228724789353393D-01
        xs( 2) = 0.16759186405823450677692977802676D+00
        xs( 3) = 0.40389619640764987706985756226107D+00
        xs( 4) = 0.73196340941186773232789560826580D+00
        xs( 5) = 0.11426891598712803368778597009083D+01
        xs( 6) = 0.16279764199329059107916846149458D+01
        xs( 7) = 0.21807838534735664415320023480900D+01
        xs( 8) = 0.27950087133136148862877458439327D+01
        xs( 9) = 0.34654879512621716835837385775817D+01
        xs(10) = 0.41881145965892356320673452407948D+01
        xs(11) = 0.49600186045848697238006628606363D+01
        xs(12) = 0.57798347601895193561944263229942D+01
        xs(13) = 0.66482133689042970938638554326280D+01
        xs(14) = 0.75690209673786666837221337045649D+01
        xs(15) = 0.85522873394057265218900853682647D+01
        ws( 1) = 0.82384731991148464458767045913351D-01
        ws( 2) = 0.18727371343804621698770435632556D+00
        ws( 3) = 0.28376387426844391201534712023809D+00
        ws( 4) = 0.37083977094514372423237425369597D+00
        ws( 5) = 0.44926328616701238515558329288235D+00
        ws( 6) = 0.52014020370559700593244996941799D+00
        ws( 7) = 0.58445741953145374057558862865965D+00
        ws( 8) = 0.64312974330198511355028985398114D+00
        ws( 9) = 0.69714150321105962426023121295378D+00
        ws(10) = 0.74763048239935985920833226774949D+00
        ws(11) = 0.79594896291316340880810040563804D+00
        ws(12) = 0.84381640279381629811077344752297D+00
        ws(13) = 0.89386416729340031878931624647467D+00
        ws(14) = 0.95253999656794887368755044960705D+00
        ws(15) = 0.10755038026630348935948977351506D+01
        endif
        if( n .eq. 16 ) then
        err = .259341053258718D-08
        xs( 1) = 0.30418722179233726561154026364329D-01
        xs( 2) = 0.15848515850925568978506301461770D+00
        xs( 3) = 0.38248399007800111215584258185009D+00
        xs( 4) = 0.69416948980968283295908584267150D+00
        xs( 5) = 0.10851598575543917080029579511584D+01
        xs( 6) = 0.15479428230533030197263641964798D+01
        xs( 7) = 0.20760073538610942698514935873682D+01
        xs( 8) = 0.26637134421254788083905801327117D+01
        xs( 9) = 0.33062146678674266350518855559830D+01
        xs(10) = 0.39994947355405030862841505395247D+01
        xs(11) = 0.47404815880551365110963176107471D+01
        xs(12) = 0.55272204296350813550026530866261D+01
        xs(13) = 0.63591564311090984153536711784607D+01
        xs(14) = 0.72377034096790997395834421996596D+01
        xs(15) = 0.81676151411409321098749639648438D+01
        xs(16) = 0.91609047048275325161790303968681D+01
        ws( 1) = 0.77850353761693562044469130319829D-01
        ws( 2) = 0.17729863430547586808026632396661D+00
        ws( 3) = 0.26928288210072855515820895897007D+00
        ws( 4) = 0.35267618367092102703080226350293D+00
        ws( 5) = 0.42805187288214318623488424975485D+00
        ws( 6) = 0.49643176980729925903455256264123D+00
        ws( 7) = 0.55875865606679968923165734366476D+00
        ws( 8) = 0.61584505209234689036379482058628D+00
        ws( 9) = 0.66848609856235462793209514723192D+00
        ws(10) = 0.71755944965213992426277861475786D+00
        ws(11) = 0.76408511254396571267651535638387D+00
        ws(12) = 0.80929740773543875974792793044294D+00
        ws(13) = 0.85482861164694114417725695310596D+00
        ws(14) = 0.90330371676691210838504419111188D+00
        ws(15) = 0.96138455310880597952321929049042D+00
        ws(16) = 0.10863334993525179504327170594567D+01
        endif
        if( n .eq. 17 ) then
        err = .638935444396825D-09
        xs( 1) = 0.28703633534602815226000783547798D-01
        xs( 2) = 0.14971042828330997671860403917037D+00
        xs( 3) = 0.36188852230349582016998150906771D+00
        xs( 4) = 0.65798665407006095308379450860525D+00
        xs( 5) = 0.10304845090623332984171547572923D+01
        xs( 6) = 0.14725499745893988955519892370903D+01
        xs( 7) = 0.19782153730889917670996298879306D+01
        xs( 8) = 0.25422615277172051855102529288892D+01
        xs( 9) = 0.31601110462671046385269984683593D+01
        xs(10) = 0.38278226930135587948028183186317D+01
        xs(11) = 0.45421668063202274888981269714093D+01
        xs(12) = 0.53007475291446348786008084643794D+01
        xs(13) = 0.61021743822183618032752313065780D+01
        xs(14) = 0.69463464835216380475856801173316D+01
        xs(15) = 0.78350292228165017143208115944818D+01
        xs(16) = 0.87732445256189606722095835721061D+01
        xs(17) = 0.97733511265177516189250608355570D+01
        ws( 1) = 0.73480931040264003689464300924907D-01
        ws( 2) = 0.16769207855144403725819891930283D+00
        ws( 3) = 0.25541909189180706475661515448184D+00
        ws( 4) = 0.33550905463393243966256976747996D+00
        ws( 5) = 0.40834629821784546513661516389023D+00
        ws( 6) = 0.47479266780483807797583545868945D+00
        ws( 7) = 0.53567021601889808242688449314350D+00
        ws( 8) = 0.59165920076768799844686793796054D+00
        ws( 9) = 0.64338161536854948259438347086418D+00
        ws(10) = 0.69150139977905761382764063161364D+00
        ws(11) = 0.73678496131045779494950263347017D+00
        ws(12) = 0.78014124506463655779540895202905D+00
        ws(13) = 0.82269223598044766842711461292762D+00
        ws(14) = 0.86596136705923029907134889966562D+00
        ws(15) = 0.91246979233763408430222937137157D+00
        ws(16) = 0.96875854680050441847453479651762D+00
        ws(17) = 0.10919692161567561433821896267103D+01
        endif
        if( n .eq. 18 ) then
        err = .185599140467276D-09
        xs( 1) = 0.27025264590800001121727566634736D-01
        xs( 2) = 0.14114344779777648797723507447477D+00
        xs( 3) = 0.34186921688639445024296202005417D+00
        xs( 4) = 0.62303320079351784342315703846872D+00
        xs( 5) = 0.97803849109598693169462770994083D+00
        xs( 6) = 0.14007296440212244109975391609663D+01
        xs( 7) = 0.18856286485302440568688362789353D+01
        xs( 8) = 0.24278862887340444857437314878641D+01
        xs( 9) = 0.30231968639832990778930065960025D+01
        xs(10) = 0.36677767510709506304549168107487D+01
        xs(11) = 0.43584098819402779034493205861653D+01
        xs(12) = 0.50925340638955783689600962733012D+01
        xs(13) = 0.58683564460934143426371135271638D+01
        xs(14) = 0.66850189192607513413930738191057D+01
        xs(15) = 0.75428835550370782196383139350762D+01
        xs(16) = 0.84441183443505476141037481626249D+01
        xs(17) = 0.93941082797893595359276202314951D+01
        xs(18) = 0.10405628028320949498003110722056D+02
        ws( 1) = 0.69207290559742134799717991875243D-01
        ws( 2) = 0.15834172881910203779638255307128D+00
        ws( 3) = 0.24205159292579209512617371182384D+00
        ws( 4) = 0.31916316954254894919673339711165D+00
        ws( 5) = 0.38981847965204929356965109486038D+00
        ws( 6) = 0.45465223887130900282547200879335D+00
        ws( 7) = 0.51433920177777634792947259188245D+00
        ws( 8) = 0.56945879669023326644997637369376D+00
        ws( 9) = 0.62053091442677899811139833762843D+00
        ws(10) = 0.66809138277070607593124914203675D+00
        ws(11) = 0.71274599530112916723433558700014D+00
        ws(12) = 0.75520108827227025078013825234420D+00
        ws(13) = 0.79629699961453602667009580129513D+00
        ws(14) = 0.83708403510734847574170521438887D+00
        ws(15) = 0.87901771769146117242870073097373D+00
        ws(16) = 0.92455496366469640099210902977785D+00
        ws(17) = 0.98013391830115070202128905032702D+00
        ws(18) = 0.11023408993798667686274186767652D+01
        endif
        if( n .eq. 19 ) then
        err = .618452095221162D-10
        xs( 1) = 0.25644171356585507118565992484322D-01
        xs( 2) = 0.13406145599596108176965019000719D+00
        xs( 3) = 0.32519563264412939193428601956211D+00
        xs( 4) = 0.59363883080074137905969481489785D+00
        xs( 5) = 0.93343215922938557066749435815865D+00
        xs( 6) = 0.13388734196207415734043622132962D+01
        xs( 7) = 0.18048121916142622334571986166916D+01
        xs( 8) = 0.23266685380691079794469094534403D+01
        xs( 9) = 0.29003723356784201344935833230782D+01
        xs(10) = 0.35223264479438453903216071047871D+01
        xs(11) = 0.41894194407349111480159311399053D+01
        xs(12) = 0.48990773359819212734528067254455D+01
        xs(13) = 0.56493419670596295199025800059916D+01
        xs(14) = 0.64389798128567585089595398230017D+01
        xs(15) = 0.72676514714913599013887168093587D+01
        xs(16) = 0.81362181361225510835501350394611D+01
        xs(17) = 0.90473794199550161347648817061478D+01
        xs(18) = 0.10007235940563959076403086187310D+02
        xs(19) = 0.11030313984569376380911287495669D+02
        ws( 1) = 0.65686637459875261781498656287369D-01
        ws( 2) = 0.15056843370576282335656386133234D+00
        ws( 3) = 0.23077344495822867217315105928366D+00
        ws( 4) = 0.30510678695137006033213670242837D+00
        ws( 5) = 0.37352520212587643898862701819778D+00
        ws( 6) = 0.43649909329039052591120793427765D+00
        ws( 7) = 0.49461637407118411247638373525426D+00
        ws( 8) = 0.54841862135136478632837477603356D+00
        ws( 9) = 0.59838920030239101464649138169461D+00
        ws(10) = 0.64499955428489320409251581609991D+00
        ws(11) = 0.68875614028258212589160139924889D+00
        ws(12) = 0.73023156331862603071039109452766D+00
        ws(13) = 0.77008956029716999987944654718250D+00
        ws(14) = 0.80912547026479184982987479154722D+00
        ws(15) = 0.84835579202851659925601689923158D+00
        ws(16) = 0.88923346749873799306560223648455D+00
        ws(17) = 0.93428282464906731185913650389963D+00
        ws(18) = 0.99020201986642113245995412099817D+00
        ws(19) = 0.11149194289894813353807494096758D+01
        endif
        if( n .eq. 20 ) then
        err = .146277178287060D-10
        xs( 1) = 0.24546477219456968446723235180440D-01
        xs( 2) = 0.12839751224693933663294153856701D+00
        xs( 3) = 0.31173224909069037907638509311513D+00
        xs( 4) = 0.56963865040701296960965492462904D+00
        xs( 5) = 0.89660097438629319681667197362276D+00
        xs( 6) = 0.12872596408940389377715939337321D+01
        xs( 7) = 0.17367326403829331213858667190935D+01
        xs( 8) = 0.22406699134062927124350881504489D+01
        xs( 9) = 0.27952043223039442410713254065739D+01
        xs(10) = 0.33969008285897108430347137900960D+01
        xs(11) = 0.40427426323600185899827628442871D+01
        xs(12) = 0.47301550625658575348348414096333D+01
        xs(13) = 0.54570565144418357971697591655481D+01
        xs(14) = 0.62219317276272632028367815140493D+01
        xs(15) = 0.70239375952110701130710823699351D+01
        xs(16) = 0.78630746544554107748346603623078D+01
        xs(17) = 0.87405022112449158473589931033963D+01
        xs(18) = 0.96591959010001593627628642464472D+01
        xs(19) = 0.10625566396816503085349279537226D+02
        xs(20) = 0.11654862725843531027159790224275D+02
        ws( 1) = 0.62884057294834581192704619855905D-01
        ws( 2) = 0.14430507434347720892913312418001D+00
        ws( 3) = 0.22152354992376871585450736372514D+00
        ws( 4) = 0.29335758018988396911670721854325D+00
        ws( 5) = 0.35966889334719096510377377193216D+00
        ws( 6) = 0.42083427762909759552911149940453D+00
        ws( 7) = 0.47738776779424143264963327313458D+00
        ws( 8) = 0.52984318313419163458252925219319D+00
        ws( 9) = 0.57865334992697685207348833710494D+00
        ws(10) = 0.62423643238551685821178164128619D+00
        ws(11) = 0.66701720111530681862036380975250D+00
        ws(12) = 0.70745952974293064177953062531837D+00
        ws(13) = 0.74608915816716075776410995826684D+00
        ws(14) = 0.78351815348338998864678755162919D+00
        ws(15) = 0.82048937503408921091238947291279D+00
        ws(16) = 0.85797174973952062104148931959208D+00
        ws(17) = 0.89738274961043171011526589415641D+00
        ws(18) = 0.94123550389278214185153899354502D+00
        ws(19) = 0.99627740254725159406093956065042D+00
        ws(20) = 0.11209757249080147397142289451123D+01
        endif
        if( n .eq. 21 ) then
        err = .417919512314732D-11
        xs( 1) = 0.23456435720882160089957925147426D-01
        xs( 2) = 0.12276328886038857885422651927089D+00
        xs( 3) = 0.29831149362321722672423084360416D+00
        xs( 4) = 0.54568168266317454044512670306418D+00
        xs( 5) = 0.85983757534641838692375231323945D+00
        xs( 6) = 0.12358252601804052963274853549190D+01
        xs( 7) = 0.16690982153640148744359641994600D+01
        xs( 8) = 0.21555930706947227824503831443847D+01
        xs( 9) = 0.26916911701007091695382016391776D+01
        xs(10) = 0.32741612837767721254425731361796D+01
        xs(11) = 0.39001287355621815185532704448584D+01
        xs(12) = 0.45670799468735801356937796368685D+01
        xs(13) = 0.52728948765544745636327264605417D+01
        xs(14) = 0.60158991577007409639662269642711D+01
        xs(15) = 0.67949360140268878896589021337145D+01
        xs(16) = 0.76094712353140350227798360218978D+01
        xs(17) = 0.84597651169359096166276592361383D+01
        xs(18) = 0.93471882597984413544900671131915D+01
        xs(19) = 0.10274876810749011784425229922007D+02
        xs(20) = 0.11249333776334700707217863330416D+02
        xs(21) = 0.12285688759915926046033012828787D+02
        ws( 1) = 0.60099716426850407503439606717752D-01
        ws( 2) = 0.13806271999261869080167188030538D+00
        ws( 3) = 0.21227762421313369242436775819265D+00
        ws( 4) = 0.28161190369714351509477480353030D+00
        ws( 5) = 0.34586913410548745039559324504874D+00
        ws( 6) = 0.40534756369662555353945106550121D+00
        ws( 7) = 0.46052198778188186713109114243961D+00
        ws( 8) = 0.51186566942821056420608477310485D+00
        ws( 9) = 0.55979251852035394835901110392610D+00
        ws(10) = 0.60466849605246701490088481733331D+00
        ws(11) = 0.64684691443675728536512165194196D+00
        ws(12) = 0.68670129846844073681489187815769D+00
        ws(13) = 0.72464833373411608650479614374927D+00
        ws(14) = 0.76116577248698355361530966597134D+00
        ws(15) = 0.79681628516785860928935325272101D+00
        ws(16) = 0.83229316387931603598024699219255D+00
        ws(17) = 0.86851651981024888443036419210378D+00
        ws(18) = 0.90685428986886463918753676473620D+00
        ws(19) = 0.94975908850115789303238044090979D+00
        ws(20) = 0.10038439625174389229635654537086D+01
        ws(21) = 0.11267397835229405323244292757085D+01
        endif
        if( n .eq. 22 ) then
        err = .147661536385943D-11
        xs( 1) = 0.22304513273080205408205771859883D-01
        xs( 2) = 0.11681337300097748549954769810133D+00
        xs( 3) = 0.28416098003031816273722396910881D+00
        xs( 4) = 0.52048874897031965235810734069567D+00
        xs( 5) = 0.82131774139205077909689505512250D+00
        xs( 6) = 0.11821631595163466953659688850738D+01
        xs( 7) = 0.15988470568974002294707162739694D+01
        xs( 8) = 0.20675948103489367634312256678370D+01
        xs( 9) = 0.25850194649406131022097401164938D+01
        xs(10) = 0.31480755961063069067069458085196D+01
        xs(11) = 0.37540272636114318998125622694357D+01
        xs(12) = 0.44004440530626096510261235558073D+01
        xs(13) = 0.50852221953315715797801025259277D+01
        xs(14) = 0.58066234425587925339573869373227D+01
        xs(15) = 0.65633283016843013778421838579810D+01
        xs(16) = 0.73545083794022203657118109426539D+01
        xs(17) = 0.81799341991930065233143007772985D+01
        xs(18) = 0.90401545106907880486839854698005D+01
        xs(19) = 0.99368271113264650314650670066734D+01
        xs(20) = 0.10873406095125893815765335212431D+02
        xs(21) = 0.11856833707175752398192014615876D+02
        xs(22) = 0.12903294032776190153689015473704D+02
        ws( 1) = 0.57157736646145031038387295269740D-01
        ws( 2) = 0.13147703802492790366521809816057D+00
        ws( 3) = 0.20255857902269896092184027233648D+00
        ws( 4) = 0.26934035488149158584506860543445D+00
        ws( 5) = 0.33156516533453942380209596928204D+00
        ws( 6) = 0.38942800735660176607130795088503D+00
        ws( 7) = 0.44331114298174540641327978328416D+00
        ws( 8) = 0.49362074301164693644946863484238D+00
        ws( 9) = 0.54072155689167623091743297780084D+00
        ws(10) = 0.58493476891738537075280448840900D+00
        ws(11) = 0.62656312442809651695597117173860D+00
        ws(12) = 0.66591916896019003159476323797362D+00
        ws(13) = 0.70334653122718049867974208805326D+00
        ws(14) = 0.73923488095678782969752286191539D+00
        ws(15) = 0.77403506598281208374023892124344D+00
        ws(16) = 0.80828409390504605880875788677527D+00
        ws(17) = 0.84265433034165520405020594410300D+00
        ws(18) = 0.87805525385891385587658578855397D+00
        ws(19) = 0.91586414079248576852207769493779D+00
        ws(20) = 0.95858402418088772021135537989560D+00
        ws(21) = 0.10129799986318610150682652296603D+01
        ws(22) = 0.11373023648874778615531144917241D+01
        endif
        if( n .eq. 23 ) then
        err = .335382644236518D-12
        xs( 1) = 0.21341263517506888755811176993815D-01
        xs( 2) = 0.11183310544388898274416761707006D+00
        xs( 3) = 0.27229747073430006429099745063688D+00
        xs( 4) = 0.49932248108676698105443629485260D+00
        xs( 5) = 0.78886853192095045211733936059697D+00
        xs( 6) = 0.11368093365974363058739807256671D+01
        xs( 7) = 0.15392336205054190379711864325648D+01
        xs( 8) = 0.19925628453146416325640248767130D+01
        xs( 9) = 0.24935615724343812394838990855860D+01
        xs(10) = 0.30393073772035737977393549555212D+01
        xs(11) = 0.36271617659935546456077094272694D+01
        xs(12) = 0.42547596103775840005206277299756D+01
        xs(13) = 0.49200190325359756266151614460933D+01
        xs(14) = 0.56211672988805004740620513805510D+01
        xs(15) = 0.63567788327059309949030370623493D+01
        xs(16) = 0.71258260126467535269028832076988D+01
        xs(17) = 0.79277503889039554434437650796500D+01
        xs(18) = 0.87625723561733734623637683717130D+01
        xs(19) = 0.96310767403863468903044870309426D+01
        xs(20) = 0.10535157417563963556351929304056D+02
        xs(21) = 0.11478536184568862478827765073191D+02
        xs(22) = 0.12468552237592525933964453580650D+02
        xs(23) = 0.13522541131042048409121614891053D+02
        ws( 1) = 0.54697029890732800284825092806782D-01
        ws( 2) = 0.12595803306245430822139805223783D+00
        ws( 3) = 0.19438804067177923937404797225490D+00
        ws( 4) = 0.25897979358750134847017462094922D+00
        ws( 5) = 0.31941969530088991558983518450397D+00
        ws( 6) = 0.37580827296084995489246845917941D+00
        ws( 7) = 0.42844386351369765786389391318048D+00
        ws( 8) = 0.47767594512220226671573480908510D+00
        ws( 9) = 0.52383496103933203691770521376864D+00
        ws(10) = 0.56721707638463392166872681151196D+00
        ws(11) = 0.60809733500456273200351766861032D+00
        ws(12) = 0.64675093185381762227643565600269D+00
        ws(13) = 0.68347182423936987615003962197763D+00
        ws(14) = 0.71858628322187267965127405923056D+00
        ws(15) = 0.75246436942701424472184221392167D+00
        ws(16) = 0.78553517970487428507325433384236D+00
        ws(17) = 0.81831411483038665719000614358290D+00
        ws(18) = 0.85145569328447512718653758315522D+00
        ws(19) = 0.88586067032278327845818058128203D+00
        ws(20) = 0.92291669395841020751600183904125D+00
        ws(21) = 0.96518090828025549684269694354416D+00
        ws(22) = 0.10196057116425682936859228134094D+01
        ws(23) = 0.11455813828100644871988164262415D+01
        endif
        if( n .eq. 24 ) then
        err = .104842461493217D-12
        xs( 1) = 0.20568478108750862534361991393824D-01
        xs( 2) = 0.10782530465371359699029126621435D+00
        xs( 3) = 0.26270252640196061751756217831680D+00
        xs( 4) = 0.48209564299315360522250463400399D+00
        xs( 5) = 0.76227494745071525241825508505639D+00
        xs( 6) = 0.10993762038733674540277351955626D+01
        xs( 7) = 0.14896934307196760327950595640933D+01
        xs( 8) = 0.19298099545696863519062577492283D+01
        xs( 9) = 0.24166255986274905062448754996381D+01
        xs(10) = 0.29473362862844823121992471328004D+01
        xs(11) = 0.35194049054429479607912672742438D+01
        xs(12) = 0.41305433211910426207988446727251D+01
        xs(13) = 0.47787113100943250000837700120529D+01
        xs(14) = 0.54621306461427290992379188496662D+01
        xs(15) = 0.61793107683251593843657374357152D+01
        xs(16) = 0.69290844798498157662038635151653D+01
        xs(17) = 0.77106563280252721855972261830336D+01
        xs(18) = 0.85236723347647030065295454269620D+01
        xs(19) = 0.93683293282840408408257372097249D+01
        xs(20) = 0.10245561034300605195521999840682D+02
        xs(21) = 0.11157383427327488059295383195611D+02
        xs(22) = 0.12107613377275822014398534340861D+02
        xs(23) = 0.13103653424430468880102248397732D+02
        xs(24) = 0.14162858211183421745923307690586D+02
        ws( 1) = 0.52721401451540512914372086988114D-01
        ws( 2) = 0.12150008666875660334903807617744D+00
        ws( 3) = 0.18772458773127592654284181536105D+00
        ws( 4) = 0.25043193357916107008445122692256D+00
        ws( 5) = 0.30927783271885592661870832431056D+00
        ws( 6) = 0.36430498512872624769209887863602D+00
        ws( 7) = 0.41575970939568126712376294900816D+00
        ws( 8) = 0.46395707460651129407887509322827D+00
        ws( 9) = 0.50920739813242742282271100047231D+00
        ws(10) = 0.55179143591117471480118005417257D+00
        ws(11) = 0.59196445777651724629581077028446D+00
        ws(12) = 0.62997209173131371859287705553349D+00
        ws(13) = 0.66606708284262711443145798062289D+00
        ws(14) = 0.70052257323752208197282933224486D+00
        ws(15) = 0.73364235183779055369370574331658D+00
        ws(16) = 0.76577137578944318518073922777296D+00
        ws(17) = 0.79731159189531211189681729643876D+00
        ws(18) = 0.82875035261291749845935973096858D+00
        ws(19) = 0.86071427570135245886486274774913D+00
        ws(20) = 0.89407689077115653625261368640141D+00
        ws(21) = 0.93019869057340359790294316820278D+00
        ws(22) = 0.97160486804688105821887835716581D+00
        ws(23) = 0.10251791720616380334113340162063D+01
        ws(24) = 0.11499727900023906515509828247292D+01
        endif
        if( n .eq. 25 ) then
        err = .300337353402627D-13
        xs( 1) = 0.19792106629219010645886252692732D-01
        xs( 2) = 0.10378995164905971047545899828011D+00
        xs( 3) = 0.25300819773671126742572966197761D+00
        xs( 4) = 0.46462059190243371660616637063978D+00
        xs( 5) = 0.73519217202461480631309155761497D+00
        xs( 6) = 0.10611244250419830141409844361711D+01
        xs( 7) = 0.14389349380556305911871360109272D+01
        xs( 8) = 0.18653947086030820082463952347516D+01
        xs( 9) = 0.23375668053667365931751265591513D+01
        xs(10) = 0.28527936971500173849836862244916D+01
        xs(11) = 0.34086690151868503047131165103226D+01
        xs(12) = 0.40030146316437931975579854060344D+01
        xs(13) = 0.46338715123800674381577272276964D+01
        xs(14) = 0.52995049228070140720318483778669D+01
        xs(15) = 0.59984212946798940878084520428284D+01
        xs(16) = 0.67293943197378495098512572585716D+01
        xs(17) = 0.74915002806393009879051432370265D+01
        xs(18) = 0.82841664537225086200575332621397D+01
        xs(19) = 0.91072419156479552035880163063158D+01
        xs(20) = 0.99611093407222500401750332450831D+01
        xs(21) = 0.10846875314680930943191691867258D+02
        xs(22) = 0.11766722641280205726450641818020D+02
        xs(23) = 0.12724641726145558629881154686283D+02
        xs(24) = 0.13728245665978257098646807743597D+02
        xs(25) = 0.14795235493716688339200830228284D+02
        ws( 1) = 0.50735511649626452350013709908841D-01
        ws( 2) = 0.11699960592001808059886960736598D+00
        ws( 3) = 0.18095485979191912332831793440226D+00
        ws( 4) = 0.24169009418001474527099378604066D+00
        ws( 5) = 0.29884869309173527332573297944098D+00
        ws( 6) = 0.35243323896599593928281367982849D+00
        ws( 7) = 0.40264909387494196375125537958996D+00
        ws( 8) = 0.44978125583532701078733455841225D+00
        ws( 9) = 0.49412053496372931067483743765371D+00
        ws(10) = 0.53593258736416103273064033813986D+00
        ws(11) = 0.57545517932201195349887567895716D+00
        ws(12) = 0.61290945331032479240851760892472D+00
        ws(13) = 0.64851489800171333987085097596592D+00
        ws(14) = 0.68250255948911236262269048518095D+00
        ws(15) = 0.71512521934338128720160352011476D+00
        ws(16) = 0.74666609242817072120618784421525D+00
        ws(17) = 0.77744923789683127527342868203559D+00
        ws(18) = 0.80785618030480929408586111433911D+00
        ws(19) = 0.83835557372839475251237442695940D+00
        ws(20) = 0.86955858139313059866404271855386D+00
        ws(21) = 0.90232852283377509835397632584357D+00
        ws(22) = 0.93802410627812981655292609580049D+00
        ws(23) = 0.97918223474715763162168080579595D+00
        ws(24) = 0.10327097658813971656120348596263D+01
        ws(25) = 0.11574191607274940540396123526028D+01
        endif
        if( n .eq. 26 ) then
        err = .773589084055586D-14
        xs( 1) = 0.18993566731898061013385011782377D-01
        xs( 2) = 0.99638821909003358700188737968471D-01
        xs( 3) = 0.24303572622428093260160137326658D+00
        xs( 4) = 0.44665127201702563885279464975318D+00
        xs( 5) = 0.70737025858439315676272717248617D+00
        xs( 6) = 0.10218899041913032921564598944087D+01
        xs( 7) = 0.13869784747432347565457310471468D+01
        xs( 8) = 0.17996122145298272184972642090431D+01
        xs( 9) = 0.22570225631207288145869295082196D+01
        xs(10) = 0.27566923905181024474210041915562D+01
        xs(11) = 0.32963328253131466391414411626727D+01
        xs(12) = 0.38738608044437196005239410301599D+01
        xs(13) = 0.44873869593616725020109274760708D+01
        xs(14) = 0.51352160335321611004803466299129D+01
        xs(15) = 0.58158581877286787397560527934382D+01
        xs(16) = 0.65280487596120544016183322668481D+01
        xs(17) = 0.72707753203549310351345810342232D+01
        xs(18) = 0.80433133773988816985053885967111D+01
        xs(19) = 0.88452755693037085122225792581222D+01
        xs(20) = 0.96766843937747801854917308096675D+01
        xs(21) = 0.10538087745046885409491492102996D+02
        xs(22) = 0.11430756021433998797371089274075D+02
        xs(23) = 0.12357047430995753535385437335093D+02
        xs(24) = 0.13321168437795978732462217029022D+02
        xs(25) = 0.14331077286039001578671771248247D+02
        xs(26) = 0.15405478423104627014506179158199D+02
        ws( 1) = 0.48692826476660425333533264196059D-01
        ws( 2) = 0.11236953601945448271783907164794D+00
        ws( 3) = 0.17399247224357651270005337952059D+00
        ws( 4) = 0.23271292456920198148541533689993D+00
        ws( 5) = 0.28817028915590787077585964612726D+00
        ws( 6) = 0.34032818394064694585133135545647D+00
        ws( 7) = 0.38934430847778090604646384400180D+00
        ws( 8) = 0.43546188359535133088295101897762D+00
        ws( 9) = 0.47893972547085110095997975362944D+00
        ws(10) = 0.52001884648138387882264794521713D+00
        ws(11) = 0.55891505155864838289241856572281D+00
        ws(12) = 0.59582599983001070997232085043877D+00
        ws(13) = 0.63094357222862762491661853994748D+00
        ws(14) = 0.66446593705309105278312856156606D+00
        ws(15) = 0.69660714623559961260990319233257D+00
        ws(16) = 0.72760467536627714312557422035081D+00
        ws(17) = 0.75772690023013099864905369865319D+00
        ws(18) = 0.78728348528395439444493918225286D+00
        ws(19) = 0.81664281319384197503414545982261D+00
        ws(20) = 0.84626309014767942437566726537504D+00
        ws(21) = 0.87674999078071128326850788838460D+00
        ws(22) = 0.90897035200409816884577609156676D+00
        ws(23) = 0.94430414354574681557115131635418D+00
        ws(24) = 0.98535007696044415048165770268044D+00
        ws(25) = 0.10391975421038368024321155280001D+01
        ws(26) = 0.11655863155444402769876745221846D+01
        endif
        if( n .eq. 27 ) then
        err = .220960606635427D-14
        xs( 1) = 0.18293339835486881523671655902867D-01
        xs( 2) = 0.95999544839629001300501481131274D-01
        xs( 3) = 0.23429674880643079786598934908038D+00
        xs( 4) = 0.43091552283749523909554259633793D+00
        xs( 5) = 0.68302891118983581905263866825652D+00
        xs( 6) = 0.98759910297426965111541769866841D+00
        xs( 7) = 0.13416140386302636185224912144295D+01
        xs( 8) = 0.17422223255623876012064753313718D+01
        xs( 9) = 0.21867887065522872573280371512498D+01
        xs(10) = 0.26729006815613518329813211195181D+01
        xs(11) = 0.31983530950392529166529359789285D+01
        xs(12) = 0.37611291041658767041096513174240D+01
        xs(13) = 0.43593874858094758306592226429438D+01
        xs(14) = 0.49914597501779905135648061439610D+01
        xs(15) = 0.56558566557288599827661243324421D+01
        xs(16) = 0.63512822883169144345605314643983D+01
        xs(17) = 0.70766542518396032543611435684236D+01
        xs(18) = 0.78311300359605635810331406885547D+01
        xs(19) = 0.86141418828418802591001172488773D+01
        xs(20) = 0.94254455957104159712296280516192D+01
        xs(21) = 0.10265193639094332206902843765676D+02
        xs(22) = 0.11134052014973080826122994420753D+02
        xs(23) = 0.12033400060706009183232027060552D+02
        xs(24) = 0.12965700938469013798903341832407D+02
        xs(25) = 0.13935273646174304114710491007212D+02
        xs(26) = 0.14950232977883186931027931758371D+02
        xs(27) = 0.16029750862256741047467291106454D+02
        ws( 1) = 0.46901712978305597539551136043769D-01
        ws( 2) = 0.10831153374274802771408537616487D+00
        ws( 3) = 0.16789621644716642279530841993567D+00
        ws( 4) = 0.22486448578017400050153649395613D+00
        ws( 5) = 0.27885204305438040300955778009498D+00
        ws( 6) = 0.32978414292137445818316437636919D+00
        ws( 7) = 0.37776964950347064627015474883587D+00
        ws( 8) = 0.42300766983284119599899471510760D+00
        ws( 9) = 0.46572330938143787217616784546426D+00
        ws(10) = 0.50613345474667271287538355544714D+00
        ws(11) = 0.54443545045042462464481211455334D+00
        ws(12) = 0.58080974341857959864714211741429D+00
        ws(13) = 0.61542882455744100084235613496928D+00
        ws(14) = 0.64846725871766396183635671245127D+00
        ws(15) = 0.68011023008573808958498145363734D+00
        ws(16) = 0.71056020152524228988126574330206D+00
        ws(17) = 0.74004273840598630316354586522648D+00
        ws(18) = 0.76881341345986911156003284477194D+00
        ws(19) = 0.79716840653058664400000452377735D+00
        ws(20) = 0.82546257262585470275875291040496D+00
        ws(21) = 0.85414140638037400230915299603502D+00
        ws(22) = 0.88379977816871461889935492998916D+00
        ws(23) = 0.91529729545843858167722064102719D+00
        ws(24) = 0.95001358100971649014260687157087D+00
        ws(25) = 0.99056192558449993905720776379148D+00
        ws(26) = 0.10440872167944882872841220759458D+01
        ws(27) = 0.11707496135834594835425231596666D+01
        endif
        if( n .eq. 28 ) then
        err = .638626683559368D-15
        xs( 1) = 0.17689586068009979984030154305957D-01
        xs( 2) = 0.92857121118000155139913763320276D-01
        xs( 3) = 0.22673243107204527551951721162724D+00
        xs( 4) = 0.41725110707042132580744094623030D+00
        xs( 5) = 0.66181220314235090665395368453061D+00
        xs( 6) = 0.95758761903170197049759312507190D+00
        xs( 7) = 0.13017414146852612850444564253379D+01
        xs( 8) = 0.16915633833834803692367635841684D+01
        xs( 9) = 0.21245316103964400398318319672307D+01
        xs(10) = 0.25983279650025244598287429979961D+01
        xs(11) = 0.31108292428744218999018254577186D+01
        xs(12) = 0.36600907793873214414186690662582D+01
        xs(13) = 0.42443326950545477646924592181906D+01
        xs(14) = 0.48619333698674509035697331961204D+01
        xs(15) = 0.55114309898938042771862160947319D+01
        xs(16) = 0.61915321372606304230768464539962D+01
        xs(17) = 0.69011260772350783109144955779315D+01
        xs(18) = 0.76393041504595372462472141755279D+01
        xs(19) = 0.84053851089016896556178057811612D+01
        xs(20) = 0.91989492211761197783177203299191D+01
        xs(21) = 0.10019886825047219182170005960637D+02
        xs(22) = 0.10868471724677153035873366732584D+02
        xs(23) = 0.11745478873163471757413057780540D+02
        xs(24) = 0.12652385430738473294298059457543D+02
        xs(25) = 0.13591742942103695389551327551908D+02
        xs(26) = 0.14567951345910830811743195923350D+02
        xs(27) = 0.15589199691156721769335323639016D+02
        xs(28) = 0.16674695423739756800868395295763D+02
        ws( 1) = 0.45356830173726097572757373648324D-01
        ws( 2) = 0.10480133931799428884414217804612D+00
        ws( 3) = 0.16259772777300826666643314967306D+00
        ws( 4) = 0.21800107642993092758720938380851D+00
        ws( 5) = 0.27064609599933760444059766067593D+00
        ws( 6) = 0.32042989401601010555897371328274D+00
        ws( 7) = 0.36742501483377118104010917828490D+00
        ws( 8) = 0.41179840096451853777886257875348D+00
        ws( 9) = 0.45375188577104126808783803184666D+00
        ws(10) = 0.49348725285000082669417288492407D+00
        ws(11) = 0.53119143154817755980322961373913D+00
        ws(12) = 0.56703510488967018941418488499066D+00
        ws(13) = 0.60117842758851994659592617104664D+00
        ws(14) = 0.63377913959228178857518399901536D+00
        ws(15) = 0.66500029104038924323911563600176D+00
        ws(16) = 0.69501655984105895397745538116417D+00
        ws(17) = 0.72401946105256002242510015487238D+00
        ws(18) = 0.75222258853777921939373966339660D+00
        ws(19) = 0.77986858735367145577554187805737D+00
        ws(20) = 0.80724018060250190926564423282691D+00
        ws(21) = 0.83467878946338734913970117045441D+00
        ws(22) = 0.86261703543166737772264074936314D+00
        ws(23) = 0.89163794718097298112518992271551D+00
        ws(24) = 0.92259070915149193510787262899892D+00
        ws(25) = 0.95684601065883557330084230585393D+00
        ws(26) = 0.99700711146937430775924523292494D+00
        ws(27) = 0.10501802383603853814052872635113D+01
        ws(28) = 0.11761033138585445491979894392880D+01
        endif
        if( n .eq. 29 ) then
        err = .183517044111500D-15
        xs( 1) = 0.17111023476376837101823685195847D-01
        xs( 2) = 0.89839838319976429106300700740637D-01
        xs( 3) = 0.21944538478915231363973359014092D+00
        xs( 4) = 0.40403177350518562616032130701323D+00
        xs( 5) = 0.64118851820820339016998328349906D+00
        xs( 6) = 0.92827006198483108690223926736248D+00
        xs( 7) = 0.12626000084173115238013101065713D+01
        xs( 8) = 0.16416019508384732950439196148679D+01
        xs( 9) = 0.20628663189614788958825056626216D+01
        xs(10) = 0.25241721495329186169602617803661D+01
        xs(11) = 0.30234831848246967312325161021322D+01
        xs(12) = 0.35589336439307482490829787320797D+01
        xs(13) = 0.41288137583337816414086856021347D+01
        xs(14) = 0.47315604123487623561219185420214D+01
        xs(15) = 0.53657547046344695165511579554170D+01
        xs(16) = 0.60301261520948765400664981533164D+01
        xs(17) = 0.67235624678219245116022063770730D+01
        xs(18) = 0.74451240503176836190862674569426D+01
        xs(19) = 0.81940631900185566231892973271876D+01
        xs(20) = 0.89698493280828578734012923426663D+01
        xs(21) = 0.97722035324125502781514365875643D+01
        xs(22) = 0.10601148097892805407271848485501D+02
        xs(23) = 0.11457081896136797690499727702785D+02
        xs(24) = 0.12340901320146868285670277593477D+02
        xs(25) = 0.13254206855042853385264176395322D+02
        xs(26) = 0.14199685454847333506630369568438D+02
        xs(27) = 0.15181906771229631630104848698639D+02
        xs(28) = 0.16209328501870958888065146728493D+02
        xs(29) = 0.17301860533967372791342374514969D+02
        ws( 1) = 0.43875696652046804235269065839017D-01
        ws( 2) = 0.10142280334009491390984638479932D+00
        ws( 3) = 0.15746555238599857760233901872689D+00
        ws( 4) = 0.21130092453615134748881375460849D+00
        ws( 5) = 0.26256821344875588129730033922035D+00
        ws( 6) = 0.31114665458728476419469905652790D+00
        ws( 7) = 0.35708277186185776134686483394722D+00
        ws( 8) = 0.40051920294240731970871139118244D+00
        ws( 9) = 0.44163947466955843713928571120121D+00
        ws(10) = 0.48063307109435400172418171378005D+00
        ws(11) = 0.51767828927403537875779286603264D+00
        ws(12) = 0.55293782724460439430449996285003D+00
        ws(13) = 0.58656192172663274178765975622584D+00
        ws(14) = 0.61869482974148551734873116996383D+00
        ws(15) = 0.64948184237429042501339776168117D+00
        ws(16) = 0.67907542975788517304070088036658D+00
        ws(17) = 0.70764028434380439834468643280676D+00
        ws(18) = 0.73535784862875332247870773661125D+00
        ws(19) = 0.76243144309797339492831712465212D+00
        ws(20) = 0.78909354157434094912707549128238D+00
        ws(21) = 0.81561737151998275772417927981274D+00
        ws(22) = 0.84233631325742829157193897819100D+00
        ws(23) = 0.86967745825877209412824451854713D+00
        ws(24) = 0.89822245217574526036821391113034D+00
        ws(25) = 0.92882627097987406577675703030878D+00
        ws(26) = 0.96287916488225273508735573841515D+00
        ws(27) = 0.10030343133789687114370746746562D+01
        ws(28) = 0.10565294705593055404408931723128D+01
        ws(29) = 0.11835499401926878399669676273618D+01
        endif
        if( n .eq. 30 ) then
        err = .505558406755875D-16
        xs( 1) = 0.16545183381414737710643139394238D-01
        xs( 2) = 0.86887524539751860628254792477788D-01
        xs( 3) = 0.21231038511012397732156397621764D+00
        xs( 4) = 0.39107939939321412071942963822782D+00
        xs( 5) = 0.62097145865997215986761593199334D+00
        xs( 6) = 0.89952621145363047801098712704210D+00
        xs( 7) = 0.12242340719676911161482207922617D+01
        xs( 8) = 0.15926614660595291829182691065438D+01
        xs( 9) = 0.20025189366822489137810924872302D+01
        xs(10) = 0.24516870109178953596307893881879D+01
        xs(11) = 0.29382163591293262413565296455937D+01
        xs(12) = 0.34603160732593483928586460272946D+01
        xs(13) = 0.40163397361737863592105852405590D+01
        xs(14) = 0.46047749055439363817174880948573D+01
        xs(15) = 0.52242384103065060018716314377340D+01
        xs(16) = 0.58734777247946720815000894789018D+01
        xs(17) = 0.65513776382571144861265954863969D+01
        xs(18) = 0.72569712863524741643469555232608D+01
        xs(19) = 0.79894550941733693971072026060292D+01
        xs(20) = 0.87482080801020428685086914098178D+01
        xs(21) = 0.95328172085964241023253498547313D+01
        xs(22) = 0.10343112196123386044423743128250D+02
        xs(23) = 0.11179215839187917324577435930711D+02
        xs(24) = 0.12041620649011166996175396048028D+02
        xs(25) = 0.12931311918385778895162553273479D+02
        xs(26) = 0.13849977910098391720769326399504D+02
        xs(27) = 0.14800399100044956973253776972236D+02
        xs(28) = 0.15787260025008310395228026018863D+02
        xs(29) = 0.16819203434427589490401611492939D+02
        xs(30) = 0.17916707390036199113459298899706D+02
        ws( 1) = 0.42426961937439560019831444431112D-01
        ws( 2) = 0.98115222731772586770003789483682D-01
        ws( 3) = 0.15243532828330521550271766253212D+00
        ws( 4) = 0.20472810269882429834791963105471D+00
        ws( 5) = 0.25464279900624342833802419111741D+00
        ws( 6) = 0.30204637165759141241106384722082D+00
        ws( 7) = 0.34696265737911642189288836291366D+00
        ws( 8) = 0.38951016448848089414646388386018D+00
        ws( 9) = 0.42985156201063250571585821428570D+00
        ws(10) = 0.46815991647861994943010066686490D+00
        ws(11) = 0.50460054047979572124560466349008D+00
        ws(12) = 0.53932466545001826824568265748990D+00
        ws(13) = 0.57247066523643409957799105703942D+00
        ws(14) = 0.60416911986749575409830647924170D+00
        ws(15) = 0.63454902175085250325175453432764D+00
        ws(16) = 0.66374355368134236654224990111294D+00
        ws(17) = 0.69189488108693034400450721036661D+00
        ws(18) = 0.71915816807461438884284294221803D+00
        ws(19) = 0.74570553585820065952476550281023D+00
        ws(20) = 0.77173103039446250351535142813174D+00
        ws(21) = 0.79745803141795030659433709478741D+00
        ws(22) = 0.82315117741385570611929795110366D+00
        ws(23) = 0.84913623463370352826069391421828D+00
        ws(24) = 0.87583431722469662277816802989866D+00
        ws(25) = 0.90382379384981931708321330476471D+00
        ws(26) = 0.93396110946058033104516435230761D+00
        ws(27) = 0.96764738189393358021775143691784D+00
        ws(28) = 0.10075684609118612945680951958375D+01
        ws(29) = 0.10610601518981940579896280374190D+01
        ws(30) = 0.11888524003027206759695417757256D+01
        endif
        if( n .eq. 31 ) then
        err = .148113873826680D-16
        xs( 1) = 0.16007330678098989548703471379823D-01
        xs( 2) = 0.84082339881396413454074380464046D-01
        xs( 3) = 0.20553603356597986842092978991656D+00
        xs( 4) = 0.37879581175251051072627662142952D+00
        xs( 5) = 0.60182817366825626172241846649369D+00
        xs( 6) = 0.87236192189334070766475523410051D+00
        xs( 7) = 0.11880584449410888921569308353473D+01
        xs( 8) = 0.15466295551349145307775735755968D+01
        xs( 9) = 0.19459055331482384158891017394763D+01
        xs(10) = 0.23838646932304730765739138708204D+01
        xs(11) = 0.28586381435753404373024182404982D+01
        xs(12) = 0.33685018060589009521088942841703D+01
        xs(13) = 0.39118645844286893030116409895701D+01
        xs(14) = 0.44872582339829927534418858342698D+01
        xs(15) = 0.50933316701025753291673087332797D+01
        xs(16) = 0.57288504451576680248782348062334D+01
        xs(17) = 0.63927009789111931530419910666005D+01
        xs(18) = 0.70838987448363484164588083804434D+01
        xs(19) = 0.78015998063439928690000699415464D+01
        xs(20) = 0.85451156733867995853493285180107D+01
        xs(21) = 0.93139322947143236083334846474502D+01
        xs(22) = 0.10107735126108849251241863007910D+02
        xs(23) = 0.10926443817738579552149243109014D+02
        xs(24) = 0.11770262644407451353625156225552D+02
        xs(25) = 0.12639757471712879541717911267653D+02
        xs(26) = 0.13535979383995361699849680878113D+02
        xs(27) = 0.14460675698655213808859338884669D+02
        xs(28) = 0.15416680437790342348212485000648D+02
        xs(29) = 0.16408728214059915612010475186541D+02
        xs(30) = 0.17445512864085157421778778030932D+02
        xs(31) = 0.18547599486780002329849136938793D+02
        ws( 1) = 0.41050007939846473852979582727720D-01
        ws( 2) = 0.94974055314397823226300491851720D-01
        ws( 3) = 0.14766574510417672435033226994071D+00
        ws( 4) = 0.19851129396328287878232078001374D+00
        ws( 5) = 0.24717203324587735407996586273941D+00
        ws( 6) = 0.29350373933430078378661427254033D+00
        ws( 7) = 0.33750683781171592187577807531918D+00
        ws( 8) = 0.37927330401109949218692955548589D+00
        ws( 9) = 0.41894165431286714213673413990949D+00
        ws(10) = 0.45666533806600797148767785561070D+00
        ws(11) = 0.49259442645616478565088382482424D+00
        ws(12) = 0.52686789082221746221441330638605D+00
        ws(13) = 0.55961305470763821633280515043310D+00
        ws(14) = 0.59094907105279742081116365243871D+00
        ws(15) = 0.62099198728116276465313281278580D+00
        ws(16) = 0.64985982809424054374824000310856D+00
        ws(17) = 0.67767695922047605498065676021254D+00
        ws(18) = 0.70457767076441549242346189358781D+00
        ws(19) = 0.73070939182289662853696325317334D+00
        ws(20) = 0.75623625734096078426834028648781D+00
        ws(21) = 0.78134399701770853100960608922565D+00
        ws(22) = 0.80624745782914570859818276707789D+00
        ws(23) = 0.83120273329864706068000444675812D+00
        ws(24) = 0.85652726194790062066725881753426D+00
        ws(25) = 0.88263427419124117225812628650389D+00
        ws(26) = 0.91009493116220115342538015603059D+00
        ws(27) = 0.93975942178898518606018482412257D+00
        ws(28) = 0.97302385459125311602654415359278D+00
        ws(29) = 0.10125695884293099729037036377122D+01
        ws(30) = 0.10657152555671900763362154554958D+01
        ws(31) = 0.11930525840263648552897297419986D+01
        endif
        if( n .eq. 32 ) then
        err = .415539364895690D-17
        xs( 1) = 0.15515214985750159988925173055551D-01
        xs( 2) = 0.81514036296724403124765073405978D-01
        xs( 3) = 0.19932684537657992404517808848489D+00
        xs( 4) = 0.36752008378325551743763408135273D+00
        xs( 5) = 0.58422353010081860001186356050896D+00
        xs( 6) = 0.84732882430656946405185072704759D+00
        xs( 7) = 0.11546440582939921527451300876872D+01
        xs( 8) = 0.15040050408282530428804780676078D+01
        xs( 9) = 0.18933435354099141313051448488787D+01
        xs(10) = 0.23207206584415761370296341562347D+01
        xs(11) = 0.27843364678707426798174270720473D+01
        xs(12) = 0.32825260690202412093271958193571D+01
        xs(13) = 0.38137502703880963934729700824377D+01
        xs(14) = 0.43765861732284556854457233947751D+01
        xs(15) = 0.49697207042788447171112650769082D+01
        xs(16) = 0.55919482852621370418520355083380D+01
        xs(17) = 0.62421726678702132123067937812539D+01
        xs(18) = 0.69194124148460931893046478253565D+01
        xs(19) = 0.76228094617510188779668589716628D+01
        xs(20) = 0.83516405079919478158191311442480D+01
        xs(21) = 0.91053315455213691954589288890645D+01
        xs(22) = 0.98834765976389561285311238266258D+01
        xs(23) = 0.10685862776361533929302934000485D+02
        xs(24) = 0.11512505305761569095323205258216D+02
        xs(25) = 0.12363698718769573142511191224820D+02
        xs(26) = 0.13240095143860901123693034830811D+02
        xs(27) = 0.14142830069447588934077936170169D+02
        xs(28) = 0.15073736923375581444401467183741D+02
        xs(29) = 0.16035744078784053988292104399606D+02
        xs(30) = 0.17033702700310714381303931030789D+02
        xs(31) = 0.18076484307131372300350483504031D+02
        xs(32) = 0.19185077656458196909414952817148D+02
        ws( 1) = 0.39789950083030155662708727502544D-01
        ws( 2) = 0.92095855902964002645135136040775D-01
        ws( 3) = 0.14328588601204199718673593488981D+00
        ws( 4) = 0.19278570472620745223560616679207D+00
        ws( 5) = 0.24026719264216813765192628853877D+00
        ws( 6) = 0.28557622551335230009101682103369D+00
        ws( 7) = 0.32869242843206885880892622527578D+00
        ws( 8) = 0.36968430156432845066604626695398D+00
        ws( 9) = 0.40866940567708081696052686056570D+00
        ws(10) = 0.44578493416958264259470317621648D+00
        ws(11) = 0.48116937066610406520887725455446D+00
        ws(12) = 0.51495346348706011725164274999987D+00
        ws(13) = 0.54725789982030019561949443313649D+00
        ws(14) = 0.57819509897582856239211166750869D+00
        ws(15) = 0.60787300139118269166677725497063D+00
        ws(16) = 0.63639935968580327540977366180167D+00
        ws(17) = 0.66388568926728428425446086369075D+00
        ws(18) = 0.69045060475529147299231213832798D+00
        ws(19) = 0.71622269926728323707536040266462D+00
        ws(20) = 0.74134341773312835333863266835603D+00
        ws(21) = 0.76597058524020295201667958085018D+00
        ws(22) = 0.79028346797784865443546047962869D+00
        ws(23) = 0.81449059797561997074154886877788D+00
        ws(24) = 0.83884229017355079818343522952317D+00
        ws(25) = 0.86365122011576867079802324069679D+00
        ws(26) = 0.88932752004797898657629919407182D+00
        ws(27) = 0.91644194743630030473946266591109D+00
        ws(28) = 0.94584890179522218677571919191163D+00
        ws(29) = 0.97895739592232072029275742658750D+00
        ws(30) = 0.10184798064111250563685747631489D+01
        ws(31) = 0.10718056492290847658480919175486D+01
        ws(32) = 0.11996463872248496023165147633423D+01
        endif
        if( n .eq. 33 ) then
        err = .114208069539455D-17
        xs( 1) = 0.15073894590552148869672708041431D-01
        xs( 2) = 0.79207573887327849086641676030049D-01
        xs( 3) = 0.19373721746349217571806548710352D+00
        xs( 4) = 0.35733662958965769379968661223796D+00
        xs( 5) = 0.56826317981676666527549177245812D+00
        xs( 6) = 0.82453761414620560947701622722492D+00
        xs( 7) = 0.11240864240778422645379224870030D+01
        xs( 8) = 0.14648476352315952776343925263458D+01
        xs( 9) = 0.18448387427633031091371567686526D+01
        xs(10) = 0.22621927099593708218887915722920D+01
        xs(11) = 0.27151710533031621504661277072635D+01
        xs(12) = 0.32021629702379118595170931212645D+01
        xs(13) = 0.37216778266225897948295918966094D+01
        xs(14) = 0.42723362012513057966660553626986D+01
        xs(15) = 0.48528626679890018670993781758303D+01
        xs(16) = 0.54620818579267178467832623467130D+01
        xs(17) = 0.60989181949708526756083970541364D+01
        xs(18) = 0.67623990467644601817201120578451D+01
        xs(19) = 0.74516608163606647657331807596498D+01
        xs(20) = 0.81659576184392702355869645063746D+01
        xs(21) = 0.89046725380374730630721694293434D+01
        xs(22) = 0.96673319978562035057297588575742D+01
        xs(23) = 0.10453624466214078241447932960732D+02
        xs(24) = 0.11263425721377546056678173274175D+02
        xs(25) = 0.12096834399625915021810807250113D+02
        xs(26) = 0.12954224126654419503404167960655D+02
        xs(27) = 0.13836323314867322554273054522100D+02
        xs(28) = 0.14744343373890468139458183954445D+02
        xs(29) = 0.15680197512576547969310466223305D+02
        xs(30) = 0.16646905910777689394252564513944D+02
        xs(31) = 0.17649442287634843290633823727237D+02
        xs(32) = 0.18696888987260134853647036540122D+02
        xs(33) = 0.19810869736727781666175912869426D+02
        ws( 1) = 0.38659571374743874253648943278150D-01
        ws( 2) = 0.89506619170945115284217016568523D-01
        ws( 3) = 0.13932709236388273773057719653618D+00
        ws( 4) = 0.18757842709336358055973234739604D+00
        ws( 5) = 0.23394240025060304709061098844021D+00
        ws( 6) = 0.27825911831744951031545427464870D+00
        ws( 7) = 0.32049372290952910917646471999041D+00
        ws( 8) = 0.36069770469166345057197476878978D+00
        ws( 9) = 0.39897314140197093015978440243471D+00
        ws(10) = 0.43544507784865957799208363779397D+00
        ws(11) = 0.47024327926833617611002331547210D+00
        ws(12) = 0.50349227224744166375618834926766D+00
        ws(13) = 0.53530766075660627979628760838395D+00
        ws(14) = 0.56579658384312975242642427006208D+00
        ws(15) = 0.59506045843094415518868212166113D+00
        ws(16) = 0.62319860498418126404746391765749D+00
        ws(17) = 0.65031186124450275150200994333853D+00
        ws(18) = 0.67650576484556693293839291541791D+00
        ws(19) = 0.70189327366987205483350465221738D+00
        ws(20) = 0.72659727470519178291036018350282D+00
        ws(21) = 0.75075332822685754350527484326925D+00
        ws(22) = 0.77451325688687896555527932714321D+00
        ws(23) = 0.79805039796891931988724609479618D+00
        ws(24) = 0.82156770766652325608271745212823D+00
        ws(25) = 0.84531063582985921689596940465172D+00
        ws(26) = 0.86958817712631729653876714246881D+00
        ws(27) = 0.89480867480061145854070470358162D+00
        ws(28) = 0.92154422037210213541766019153534D+00
        ws(29) = 0.95065614991552611449884253524502D+00
        ws(30) = 0.98357174859459599755192236434473D+00
        ws(31) = 0.10230483999141773195201562651034D+01
        ws(32) = 0.10766009028611965448869572094892D+01
        ws(33) = 0.12055206801801815090039607921483D+01
        endif
        if( n .eq. 34 ) then
        err = .321901689122879D-18
        xs( 1) = 0.14653166563487252952077290850147D-01
        xs( 2) = 0.77007487340446859724854764715624D-01
        xs( 3) = 0.18840050156280040196581699627193D+00
        xs( 4) = 0.34760306127451346696473884528428D+00
        xs( 5) = 0.55299023388170039829906459554421D+00
        xs( 6) = 0.80270501366763848441753484482465D+00
        xs( 7) = 0.10947895284387143578488354701714D+01
        xs( 8) = 0.14272850220058882428344233008113D+01
        xs( 9) = 0.17982983287990924855089487585400D+01
        xs(10) = 0.22060390673944387672049104265844D+01
        xs(11) = 0.26488349884163851319582990181271D+01
        xs(12) = 0.31251332892244555338617024057389D+01
        xs(13) = 0.36334945620659968379632233040687D+01
        xs(14) = 0.41725843367708291034024523829670D+01
        xs(15) = 0.47411654544318415727202465767654D+01
        xs(16) = 0.53380930323965450745699402808384D+01
        xs(17) = 0.59623126736788265140405448416741D+01
        xs(18) = 0.66128618696670850769529092041685D+01
        xs(19) = 0.72888742165142069577933190372322D+01
        xs(20) = 0.79895860449485410653186394304044D+01
        xs(21) = 0.87143452688457233860554998714191D+01
        xs(22) = 0.94626226231144656267019458352479D+01
        xs(23) = 0.10234025958670511647133309248740D+02
        xs(24) = 0.11028318923089071497384261647817D+02
        xs(25) = 0.11845446297337607197489723832496D+02
        xs(26) = 0.12685569741078717821372241000209D+02
        xs(27) = 0.13549120257727380483816083648118D+02
        xs(28) = 0.14436878478692215531605875484325D+02
        xs(29) = 0.15350103563309584740232438900197D+02
        xs(30) = 0.16290753027799971501922297267784D+02
        xs(31) = 0.17261889642818764660476408973026D+02
        xs(32) = 0.18268531494639962034880548177583D+02
        xs(33) = 0.19319816788514203451907949291404D+02
        xs(34) = 0.20437499289495208578266984202488D+02
        ws( 1) = 0.37581788282219416041380477691859D-01
        ws( 2) = 0.87035122328947522751306717237544D-01
        ws( 3) = 0.13554184830229371991251996553199D+00
        ws( 4) = 0.18258985385134120037164850253995D+00
        ws( 5) = 0.22787278036524049102372617643404D+00
        ws( 6) = 0.27122879572661725979753199595392D+00
        ws( 7) = 0.31261267821770675811599036709488D+00
        ws( 8) = 0.35206218027284731215836978123146D+00
        ws( 9) = 0.38966579978106192714357381792959D+00
        ws(10) = 0.42553696333169742334153154537104D+00
        ws(11) = 0.45979619093698359182340199633946D+00
        ws(12) = 0.49256065793979763775647353527299D+00
        ws(13) = 0.52393960719268527409842922524985D+00
        ws(14) = 0.55403383437327106116515862477867D+00
        ws(15) = 0.58293761674258270516584867386195D+00
        ws(16) = 0.61074178195031952221531953950472D+00
        ws(17) = 0.63753701119752853449959601925408D+00
        ws(18) = 0.66341686911703702337906510931643D+00
        ws(19) = 0.68848039924697919978496003345032D+00
        ws(20) = 0.71283439083375204716331453193755D+00
        ws(21) = 0.73659561092372094748571034258513D+00
        ws(22) = 0.75989343329837924401711001266147D+00
        ws(23) = 0.78287343201237602495299403103300D+00
        ws(24) = 0.80570271214613123424131564454532D+00
        ws(25) = 0.82857813001677143569301440516076D+00
        ws(26) = 0.85173929935262493959392632374757D+00
        ws(27) = 0.87548978453261588235114678434525D+00
        ws(28) = 0.90023307327476990980440130189320D+00
        ws(29) = 0.92653722167242583205271464349374D+00
        ws(30) = 0.95526078746417598375052766933191D+00
        ws(31) = 0.98783039627891428359798748052075D+00
        ws(32) = 0.10270063114642917686272735092504D+01
        ws(33) = 0.10803078957434201805133394639641D+01
        ws(34) = 0.12090029354827368848487611294152D+01
        endif
        if( n .eq. 35 ) then
        err = .947122911519443D-19
        xs( 1) = 0.14222956382214462239272609946335D-01
        xs( 2) = 0.74758194863036072029434116462898D-01
        xs( 3) = 0.18294630002837248976764501160260D+00
        xs( 4) = 0.33766089343409882822066138144396D+00
        xs( 5) = 0.53740319093239944010108267704589D+00
        xs( 6) = 0.78044907273913641937780662925246D+00
        xs( 7) = 0.10649680791876755611457998850202D+01
        xs( 8) = 0.13891163150449802548848636179581D+01
        xs( 9) = 0.17511003136701903270225262131221D+01
        xs(10) = 0.21492146440517757386301079664510D+01
        xs(11) = 0.25818592130466148335180094307535D+01
        xs(12) = 0.30475429188824872001475640077142D+01
        xs(13) = 0.35448795812220552879486113138263D+01
        xs(14) = 0.40725807387084266218241550455352D+01
        xs(15) = 0.46294484629889447033975585714347D+01
        xs(16) = 0.52143700457786428901840549546067D+01
        xs(17) = 0.58263153955285662140906110867747D+01
        xs(18) = 0.64643372796602210910555668502123D+01
        xs(19) = 0.71275741619418259444166972164535D+01
        xs(20) = 0.78152552696553066463542380786391D+01
        xs(21) = 0.85267076195211558584754689400320D+01
        xs(22) = 0.92613649746550254262517991634640D+01
        xs(23) = 0.10018779058429135205149551507722D+02
        xs(24) = 0.10798633813426329136638930679845D+02
        xs(25) = 0.11600764115553070283626844835663D+02
        xs(26) = 0.12425181263914093220717847884061D+02
        xs(27) = 0.13272109031638154173610903786481D+02
        xs(28) = 0.14142036621783941001942545320264D+02
        xs(29) = 0.15035799685246459518715289297482D+02
        xs(30) = 0.15954710320891824504894288002719D+02
        xs(31) = 0.16900778651381459765699249806295D+02
        xs(32) = 0.17877122784756572838860895596439D+02
        xs(33) = 0.18888825059931916053776150546513D+02
        xs(34) = 0.19945112527974694844190794974857D+02
        xs(35) = 0.21067915189209334451127537536314D+02
        ws( 1) = 0.36479755875367781378895177527604D-01
        ws( 2) = 0.84508905994499294183039723839840D-01
        ws( 3) = 0.13167571808758793334395364343864D+00
        ws( 4) = 0.17750135642014179878979069341325D+00
        ws( 5) = 0.22169388090199706077464343173455D+00
        ws( 6) = 0.26409125063381662691318260810592D+00
        ws( 7) = 0.30463838992203044669107664772251D+00
        ws( 8) = 0.34335855908002956937258054237560D+00
        ws( 9) = 0.38032492769113028121994095601602D+00
        ws(10) = 0.41563700431068819960120361525059D+00
        ws(11) = 0.44940369550570927189270795302377D+00
        ws(12) = 0.48173281358015698028176906680124D+00
        ws(13) = 0.51272589161304680478237218840741D+00
        ws(14) = 0.54247685904459607895580885622081D+00
        ws(15) = 0.57107318172069763320681193841945D+00
        ws(16) = 0.59859829719120096553259764994030D+00
        ws(17) = 0.62513448196988642233237336960823D+00
        ws(18) = 0.65076561176586784331264409873964D+00
        ws(19) = 0.67557957347183434574762521772403D+00
        ws(20) = 0.69967032952901258451735441939845D+00
        ws(21) = 0.72313981230953420674531994780310D+00
        ws(22) = 0.74609995078940637446187176751903D+00
        ws(23) = 0.76867523394407574166903251782453D+00
        ws(24) = 0.79100633915571671871802304705724D+00
        ws(25) = 0.81325556175084312109353005152960D+00
        ws(26) = 0.83561517281302316718416326499914D+00
        ws(27) = 0.85832059244764936799014280865740D+00
        ws(28) = 0.88167179031382649575379728449462D+00
        ws(29) = 0.90606954631698736116051895298734D+00
        ws(30) = 0.93208056029043990177199184067704D+00
        ws(31) = 0.96056424069888383121451175352408D+00
        ws(32) = 0.99295196598044874381562582838979D+00
        ws(33) = 0.10320156805843642259015390969886D+01
        ws(34) = 0.10852921653549613729157344092522D+01
        ws(35) = 0.12139476099405937752078580121032D+01
        endif
        if( n .eq. 36 ) then
        err = .276713189845055D-19
        xs( 1) = 0.13821579611955063052395872058323D-01
        xs( 2) = 0.72659215170003646077839270965447D-01
        xs( 3) = 0.17785477285943621220111817463756D+00
        xs( 4) = 0.32837538962340398334940657937891D+00
        xs( 5) = 0.52283722437255583582122605276760D+00
        xs( 6) = 0.75963715821684947249739742500214D+00
        xs( 7) = 0.10370602588879362212972124634709D+01
        xs( 8) = 0.13533658091703610483013947527522D+01
        xs( 9) = 0.17068485331178482250284727647649D+01
        xs(10) = 0.20958765873926345380546548955392D+01
        xs(11) = 0.25189109185071820951080945479312D+01
        xs(12) = 0.29745115209808587557362192624256D+01
        xs(13) = 0.34613357492720041300616793318583D+01
        xs(14) = 0.39781328385229404436931521092335D+01
        xs(15) = 0.45237376215410934524749038579301D+01
        xs(16) = 0.50970653333642154105045768692912D+01
        xs(17) = 0.56971084897955829556734423142219D+01
        xs(18) = 0.63229361643491070955810476666551D+01
        xs(19) = 0.69736955778150145947639883146383D+01
        xs(20) = 0.76486157333682968013847836810271D+01
        xs(21) = 0.83470128351716877696294612639071D+01
        xs(22) = 0.90682973719093350624053475290373D+01
        xs(23) = 0.98119829904600740267740022566604D+01
        xs(24) = 0.10577697613050620067788050394682D+02
        xs(25) = 0.11365197680718405332356857512755D+02
        xs(26) = 0.12174387000380747801170715036166D+02
        xs(27) = 0.13005342569465801264107555419835D+02
        xs(28) = 0.13858351222866955238195072739061D+02
        xs(29) = 0.14733963542377941201069239694569D+02
        xs(30) = 0.15633076371826534112617049969299D+02
        xs(31) = 0.16557065250108187488433669272501D+02
        xs(32) = 0.17508010243459684175114741860421D+02
        xs(33) = 0.18489114225948379775692805240722D+02
        xs(34) = 0.19505578220146094313945912796241D+02
        xs(35) = 0.20566839769418461844929904447699D+02
        xs(36) = 0.21695457035435814611490340158726D+02
        ws( 1) = 0.35451532036360406844720626130091D-01
        ws( 2) = 0.82150907103934040581945291445141D-01
        ws( 3) = 0.12806452051132680026170021785567D+00
        ws( 4) = 0.17274401668273105314859540721613D+00
        ws( 5) = 0.21591065661303410367553111531077D+00
        ws( 6) = 0.25740194683775155789500027272445D+00
        ws( 7) = 0.29715311929223384768371570329007D+00
        ws( 8) = 0.33517314724818762728718162572936D+00
        ws( 9) = 0.37152001782348140129526265454053D+00
        ws(10) = 0.40627949000108705414234603301258D+00
        ws(11) = 0.43954920939447940607158483858496D+00
        ws(12) = 0.47142831969314043538903120205181D+00
        ws(13) = 0.50201178521945499779039421942585D+00
        ws(14) = 0.53138828759004231112126939461599D+00
        ws(15) = 0.55964053698058946125750690165833D+00
        ws(16) = 0.58684698438718252517792373210122D+00
        ws(17) = 0.61308414685822675063191079956192D+00
        ws(18) = 0.63842901111726204951305582924893D+00
        ws(19) = 0.66296122571321891208844843953679D+00
        ws(20) = 0.68676500162856229821789908738011D+00
        ws(21) = 0.70993080324005702858029478474640D+00
        ws(22) = 0.73255702813724591787433829990533D+00
        ws(23) = 0.75475196201725452152360198299796D+00
        ws(24) = 0.77663638132812080889159922436164D+00
        ws(25) = 0.79834730016571591401794788461293D+00
        ws(26) = 0.82004357580503491627001591467584D+00
        ws(27) = 0.84191449500456730178442810295982D+00
        ws(28) = 0.86419324723850363697272810197352D+00
        ws(29) = 0.88717875411836441079652872002460D+00
        ws(30) = 0.91127261977997119135056359149202D+00
        ws(31) = 0.93704549293775305538947843358655D+00
        ws(32) = 0.96536641552810921665026779852304D+00
        ws(33) = 0.99768799869071587003763378081953D+00
        ws(34) = 0.10368307422903822048264796218048D+01
        ws(35) = 0.10904601161891883401481531942000D+01
        ws(36) = 0.12202895866860808979920813839468D+01
        endif
        if( n .eq. 37 ) then
        err = .732036166995713D-20
        xs( 1) = 0.13474443312205266349398565791289D-01
        xs( 2) = 0.70842372899470154014116200315600D-01
        xs( 3) = 0.17344127336411241468344368157487D+00
        xs( 4) = 0.32031054944127450244056063140665D+00
        xs( 5) = 0.51015569588393232599197056585728D+00
        xs( 6) = 0.74146821861623453135652847135345D+00
        xs( 7) = 0.10126241686672931008460950990359D+01
        xs( 8) = 0.13219647431121181980515330778022D+01
        xs( 9) = 0.16678553477795440371252005810298D+01
        xs(10) = 0.20487238027562333713007767320160D+01
        xs(11) = 0.24630812564141890939959278509489D+01
        xs(12) = 0.29095304574345413634310664448838D+01
        xs(13) = 0.33867659116892970323553618471199D+01
        xs(14) = 0.38935697152461655451926427441689D+01
        xs(15) = 0.44288059068429331424245533078900D+01
        xs(16) = 0.49914152489310314591991518231954D+01
        xs(17) = 0.55804115412886525082531905208737D+01
        xs(18) = 0.61948799493893578250787221776193D+01
        xs(19) = 0.68339774086844370735801423751715D+01
        xs(20) = 0.74969349371191271021497998640018D+01
        xs(21) = 0.81830616244188519668870736879964D+01
        xs(22) = 0.88917501318264756844482373508733D+01
        xs(23) = 0.96224836959426451639956967493173D+01
        xs(24) = 0.10374844863234505507254995245188D+02
        xs(25) = 0.11148526486413348478720076558664D+02
        xs(26) = 0.11943345918140640442539650260624D+02
        xs(27) = 0.12759263911834588847503028431786D+02
        xs(28) = 0.13596410624741538227664420464778D+02
        xs(29) = 0.14455122589587123998846258291677D+02
        xs(30) = 0.15335997132874848022741685399107D+02
        xs(31) = 0.16239975664422010728569405611149D+02
        xs(32) = 0.17168477332391277282596211740805D+02
        xs(33) = 0.18123626952161613443115580232730D+02
        xs(34) = 0.19108677358778944240972369884287D+02
        xs(35) = 0.20128894157842619937012154107719D+02
        xs(36) = 0.21193823322662177270799638935007D+02
        xs(37) = 0.22326358788942554446131886750442D+02
        ws( 1) = 0.34562082352130657634765404682099D-01
        ws( 2) = 0.80107776160167437036573657737585D-01
        ws( 3) = 0.12492662302831992589103613935556D+00
        ws( 4) = 0.16859431987717307459547078928772D+00
        ws( 5) = 0.21084289851550526668936045566582D+00
        ws( 6) = 0.25151013625497049295456122923171D+00
        ws( 7) = 0.29052431475255785133095199551492D+00
        ws( 8) = 0.32788377426012242036139743055057D+00
        ws( 9) = 0.36363506806384850009337868271605D+00
        ws(10) = 0.39785357308966098422556434206258D+00
        ws(11) = 0.43062846548983325004103350136118D+00
        ws(12) = 0.46205243040294363387212180532677D+00
        ws(13) = 0.49221559273346714700832021242628D+00
        ws(14) = 0.52120277703923023790259784348336D+00
        ws(15) = 0.54909312906917918470415113341472D+00
        ws(16) = 0.57596121633187331328703542218574D+00
        ws(17) = 0.60187888875884773423647446899965D+00
        ws(18) = 0.62691737754040325400852379831294D+00
        ws(19) = 0.65114931045314422452315538344025D+00
        ws(20) = 0.67465050299895874884855214541303D+00
        ws(21) = 0.69750153225665359976589177843470D+00
        ws(22) = 0.71978921097834546523944385627237D+00
        ws(23) = 0.74160816055671152584996089931236D+00
        ws(24) = 0.76306274973043823565107907086034D+00
        ws(25) = 0.78426974587918217929982138564142D+00
        ws(26) = 0.80536215188826739591332613571031D+00
        ws(27) = 0.82649492678320644305215027811299D+00
        ws(28) = 0.84785370632919518505821537695747D+00
        ws(29) = 0.86966843703393652833007541780390D+00
        ws(30) = 0.89223541986979495204719887494475D+00
        ws(31) = 0.91595459253837626212561899946098D+00
        ws(32) = 0.94139648874537911887300909056307D+00
        ws(33) = 0.96943281436883899100614140082382D+00
        ws(34) = 0.10015244736826757031866045719964D+01
        ws(35) = 0.10405133706421625297918311054112D+01
        ws(36) = 0.10941236356303140012688154201309D+01
        ws(37) = 0.12243566652109286756841480152949D+01
        endif
        if( n .eq. 38 ) then
        err = .211069923201163D-20
        xs( 1) = 0.13140829495090339585079861472392D-01
        xs( 2) = 0.69095261281827699179284390904946D-01
        xs( 3) = 0.16919287764080241665074330668006D+00
        xs( 4) = 0.31253711959779363944235359058131D+00
        xs( 5) = 0.49791377511068806582545239969585D+00
        xs( 6) = 0.72390097898066778260673901608474D+00
        xs( 7) = 0.98896002779333389209060557226388D+00
        xs( 8) = 0.12915110248332250238827687037998D+01
        xs( 9) = 0.16299896540676718225281011926533D+01
        xs(10) = 0.20028851160458573090038130687633D+01
        xs(11) = 0.24087619798603723376071798114077D+01
        xs(12) = 0.28462698777539508477643055145035D+01
        xs(13) = 0.33141450396830050675714806689199D+01
        xs(14) = 0.38112071362894547230815491465613D+01
        xs(15) = 0.43363541293581950275535307785379D+01
        xs(16) = 0.48885570299819189016697950640748D+01
        xs(17) = 0.54668557475466760907113307590446D+01
        xs(18) = 0.60703566322687289261094218398243D+01
        xs(19) = 0.66982318933580341404191671936587D+01
        xs(20) = 0.73497208151416442996042072335657D+01
        xs(21) = 0.80241325792528217950729388834025D+01
        xs(22) = 0.87208505063111830013872143860063D+01
        xs(23) = 0.94393376267000267065421672882040D+01
        xs(24) = 0.10179143653883553339056944737440D+02
        xs(25) = 0.10939913654581486784154114887890D+02
        xs(26) = 0.11721398996167085118311966166643D+02
        xs(27) = 0.12523471537214566186015865879704D+02
        xs(28) = 0.13346142586230274592689255772959D+02
        xs(29) = 0.14189589028778978856031477052436D+02
        xs(30) = 0.15054190489441306082197845759360D+02
        xs(31) = 0.15940584007132468113400826631663D+02
        xs(32) = 0.16849747654873381366982682327650D+02
        xs(33) = 0.17783134617969543464818976300771D+02
        xs(34) = 0.18742901680512430602636626856145D+02
        xs(35) = 0.19732332330541430043998163027599D+02
        xs(36) = 0.20756722409127417931841233926396D+02
        xs(37) = 0.21825647259741335667018997943497D+02
        xs(38) = 0.22961997930636712091997178384846D+02
        ws( 1) = 0.33707158105615433069021024650397D-01
        ws( 2) = 0.78141633056521757687078327089656D-01
        ws( 3) = 0.12190107490203161540400711794741D+00
        ws( 4) = 0.16458334783568435583599154818050D+00
        ws( 5) = 0.20593145736398711995195456863965D+00
        ws( 6) = 0.24578522948680645884651307890533D+00
        ws( 7) = 0.28406860651276487835106259519032D+00
        ws( 8) = 0.32077204317569987234156355983366D+00
        ws( 9) = 0.35593306096941418454556738166583D+00
        ws(10) = 0.38961847266837400668755761529439D+00
        ws(11) = 0.42191017643415802857879799305943D+00
        ws(12) = 0.45289505006059243602939905478897D+00
        ws(13) = 0.48265864255170176330188774185859D+00
        ws(14) = 0.51128196774984180487546926871886D+00
        ws(15) = 0.53884059079016467832642444266889D+00
        ws(16) = 0.56540523668111313021683695082641D+00
        ws(17) = 0.59104326627159387918825349275950D+00
        ws(18) = 0.61582051726758430153500153566608D+00
        ws(19) = 0.63980317144918377763814013997072D+00
        ws(20) = 0.66305946478776744661644425836415D+00
        ws(21) = 0.68566119084513908980780888436164D+00
        ws(22) = 0.70768505279022380871650991185087D+00
        ws(23) = 0.72921399707360082147249459611675D+00
        ws(24) = 0.75033872152559028072045708831267D+00
        ws(25) = 0.77115960810427364213114889216822D+00
        ws(26) = 0.79178940768208998799028521636846D+00
        ws(27) = 0.81235713250419076387952166922151D+00
        ws(28) = 0.83301384168992550466206436453898D+00
        ws(29) = 0.85394142840511971221275117306179D+00
        ws(30) = 0.87536631983448689745140766670455D+00
        ws(31) = 0.89758158927308163157782503775337D+00
        ws(32) = 0.92098431816007323169865216122038D+00
        ws(33) = 0.94614266209495832624687228272869D+00
        ws(34) = 0.97392657190946621731796130759657D+00
        ws(35) = 0.10057958893852417502057361397828D+01
        ws(36) = 0.10445908214604657786746262060414D+01
        ws(37) = 0.10980167061682451889689332781466D+01
        ws(38) = 0.12277956061365707207058278240793D+01
        endif
        if( n .eq. 39 ) then
        err = .637331313551272D-21
        xs( 1) = 0.12793651955162022782472164585347D-01
        xs( 2) = 0.67276966057208620493954909096934D-01
        xs( 3) = 0.16477088353918343201584571859438D+00
        xs( 4) = 0.30444530153123210818511736221690D+00
        xs( 5) = 0.48517026351762328760246815693193D+00
        xs( 6) = 0.70561606361491208819506365332988D+00
        xs( 7) = 0.96433606598533734794682299530135D+00
        xs( 8) = 0.12598368595948726583724188478696D+01
        xs( 9) = 0.15906320941752863549043467587633D+01
        xs(10) = 0.19552795307917953247073969781050D+01
        xs(11) = 0.23524033581195770799757800785370D+01
        xs(12) = 0.27807050354328771967911924613303D+01
        xs(13) = 0.32389661431981095288267321065093D+01
        xs(14) = 0.37260463672199918876949886504075D+01
        xs(15) = 0.42408791293980889627110495817570D+01
        xs(16) = 0.47824667029881840721664457404779D+01
        xs(17) = 0.53498760201029311050739528311273D+01
        xs(18) = 0.59422358492523134896599296952737D+01
        xs(19) = 0.65587356170072198251746729490578D+01
        xs(20) = 0.71986258774354943926034814028978D+01
        xs(21) = 0.78612202884145908576437609465350D+01
        xs(22) = 0.85458989174087137810258601638000D+01
        xs(23) = 0.92521127479633104540549025007130D+01
        xs(24) = 0.99793893705262557604869429432737D+01
        xs(25) = 0.10727340003036762030126372435669D+02
        xs(26) = 0.11495668196034285776612892220492D+02
        xs(27) = 0.12284180848871489809657516289823D+02
        xs(28) = 0.13092802537133449025251507505939D+02
        xs(29) = 0.13921594703799459676566356285708D+02
        xs(30) = 0.14770782143127659789822646045664D+02
        xs(31) = 0.15640790685232551919016462539665D+02
        xs(32) = 0.16532302633057911609909746323200D+02
        xs(33) = 0.17446341523961789604470456447581D+02
        xs(34) = 0.18384408019344912891387277586854D+02
        xs(35) = 0.19348711512011302547867337633181D+02
        xs(36) = 0.20342599235852175732073750807415D+02
        xs(37) = 0.21371455383316020925519782985906D+02
        xs(38) = 0.22445007459647582247582938997507D+02
        xs(39) = 0.23586562616444701291368443800475D+02
        ws( 1) = 0.32817456275524372785869952869959D-01
        ws( 2) = 0.76095189314943290869595285410581D-01
        ws( 3) = 0.11875139783480876340182037804352D+00
        ws( 4) = 0.16040758460010651827635828530583D+00
        ws( 5) = 0.20081932872553713030116447730059D+00
        ws( 6) = 0.23982998666533122495926769409135D+00
        ws( 7) = 0.27736021835759104230145565176000D+00
        ws( 8) = 0.31339303175015342199462704049669D+00
        ws( 9) = 0.34795670047585569726596123450664D+00
        ws(10) = 0.38110869866001492684961313033499D+00
        ws(11) = 0.41292249256710024420894168880064D+00
        ws(12) = 0.44347783173664946553786391353401D+00
        ws(13) = 0.47285440860321959016409383248183D+00
        ws(14) = 0.50112836066997908190854358579245D+00
        ws(15) = 0.52837094733293551284751177153136D+00
        ws(16) = 0.55464873617233033046171292149258D+00
        ws(17) = 0.58002471240571793879364460776012D+00
        ws(18) = 0.60455984211888561774017463219534D+00
        ws(19) = 0.62831475234091832767164136762405D+00
        ws(20) = 0.65135132273431449580321474880608D+00
        ws(21) = 0.67373410196856696799856826673491D+00
        ws(22) = 0.69553155875888374770794802438125D+00
        ws(23) = 0.71681725123663509892969669849904D+00
        ws(24) = 0.73767105324804433252473609657965D+00
        ws(25) = 0.75818062224066738722983057147088D+00
        ws(26) = 0.77844334509946021121309863051033D+00
        ws(27) = 0.79856907554887819922114240662707D+00
        ws(28) = 0.81868410895769584688475288571714D+00
        ws(29) = 0.83893707676927435116328878982489D+00
        ws(30) = 0.85950787541578717394907659031191D+00
        ws(31) = 0.88062156127506997586462582069596D+00
        ws(32) = 0.90257075645697534280198844731008D+00
        ws(33) = 0.92575349998690772393813309566213D+00
        ws(34) = 0.95074121378381987120399085561473D+00
        ws(35) = 0.97841125445429670581321035906582D+00
        ws(36) = 0.10102391502922448190550501606707D+01
        ws(37) = 0.10490995506574457988723741566566D+01
        ws(38) = 0.11027815839958571796387866899065D+01
        ws(39) = 0.12332616280631056511804102691127D+01
        endif
        if( n .eq. 40 ) then
        err = .168266990317577D-21
        xs( 1) = 0.12468103893457890374051751988458D-01
        xs( 2) = 0.65571978781392460978413359374955D-01
        xs( 3) = 0.16062460848975516773820807649797D+00
        xs( 4) = 0.29685859387316358697142941973502D+00
        xs( 5) = 0.47322370060124252670561517766871D+00
        xs( 6) = 0.68847762413450521013149054510025D+00
        xs( 7) = 0.94126107778747447479199094986690D+00
        xs( 8) = 0.12301624539763938717486163004497D+01
        xs( 9) = 0.15537685528027972152797557378819D+01
        xs(10) = 0.19107005365062990040123260079447D+01
        xs(11) = 0.22996365562066066116898813708555D+01
        xs(12) = 0.27193237011177152788690049104702D+01
        xs(13) = 0.31685822493230558850480366875263D+01
        xs(14) = 0.36463049889739089149830606284024D+01
        xs(15) = 0.41514539044919817120098956521001D+01
        xs(16) = 0.46830559629606016558455276418642D+01
        xs(17) = 0.52401991934487945737910215772118D+01
        xs(18) = 0.58220297805959532273827183333310D+01
        xs(19) = 0.64277505201875661834601010015289D+01
        xs(20) = 0.70566207187392975023539398918668D+01
        xs(21) = 0.77079574591152523787132979156479D+01
        xs(22) = 0.83811380884844120695721468488395D+01
        xs(23) = 0.90756037964160155550393632206140D+01
        xs(24) = 0.97908642215855061047439934051580D+01
        xs(25) = 0.10526503141033749352920538993399D+02
        xs(26) = 0.11282185449518893301843710811828D+02
        xs(27) = 0.12057665832761769925851691724171D+02
        xs(28) = 0.12852799797212858389443996461695D+02
        xs(29) = 0.13667558082763220039894187710977D+02
        xs(30) = 0.14502046032999435100531421401390D+02
        xs(31) = 0.15356530377365014669664796612676D+02
        xs(32) = 0.16231477373033818019105889789421D+02
        xs(33) = 0.17127608931536984020038822342436D+02
        xs(34) = 0.18045988447363859064554203509625D+02
        xs(35) = 0.18988158436017618348934860454519D+02
        xs(36) = 0.19956375261128727918025449722585D+02
        xs(37) = 0.20954044492713602766410189736992D+02
        xs(38) = 0.21986634761591086150365095324985D+02
        xs(39) = 0.23064030241693458860891015189111D+02
        xs(40) = 0.24210048491924864498405375806581D+02
        ws( 1) = 0.31983186258866345013065758768040D-01
        ws( 2) = 0.74176313232582730160896998065404D-01
        ws( 3) = 0.11579833567178756148667639398876D+00
        ws( 4) = 0.15649322426990141011771256295014D+00
        ws( 5) = 0.19602867636516286922322849563445D+00
        ws( 6) = 0.23425153590773029195614666479167D+00
        ws( 7) = 0.27107925635561844445691284486543D+00
        ws( 8) = 0.30648736737810905261358623774986D+00
        ws( 9) = 0.34049465353066966215539314414180D+00
        ws(10) = 0.37314881387688755789489083682416D+00
        ws(11) = 0.40451434290286870750245387353513D+00
        ws(12) = 0.43466334340474065832399444099534D+00
        ws(13) = 0.46366927704913195295729532512733D+00
        ws(14) = 0.49160327269287753860246701709463D+00
        ws(15) = 0.51853245321259314504873785022085D+00
        ws(16) = 0.54451971779399060655062991531867D+00
        ws(17) = 0.56962446651533739305987373994269D+00
        ws(18) = 0.59390384186001260536462708774940D+00
        ws(19) = 0.61741416694267217069514404644102D+00
        ws(20) = 0.64021236883423517966249050787997D+00
        ws(21) = 0.66235727664720655000007053076943D+00
        ws(22) = 0.68391077035499608073894393258240D+00
        ws(23) = 0.70493882427808034946221850780207D+00
        ws(24) = 0.72551254018331583951532663062102D+00
        ws(25) = 0.74570930482394334046486486918301D+00
        ws(26) = 0.76561424497885728826055636400361D+00
        ws(27) = 0.78532220266302584201602785650649D+00
        ws(28) = 0.80494053233544830584510748108288D+00
        ws(29) = 0.82459315863233947774972365395821D+00
        ws(30) = 0.84442657597141916116499047994213D+00
        ws(31) = 0.86461891294854385268180105764351D+00
        ws(32) = 0.88539401514273035318881810957505D+00
        ws(33) = 0.90704413894411466641658719974194D+00
        ws(34) = 0.92996829358191461456837238538116D+00
        ws(35) = 0.95474113454281105621295777561935D+00
        ws(36) = 0.98224746470461293969067455500119D+00
        ws(37) = 0.10139790905354993064907253671708D+01
        ws(38) = 0.10528484540334964720566329907404D+01
        ws(39) = 0.11067490486280775715647568606035D+01
        ws(40) = 0.12381825283262599360623707969713D+01
        endif
        if( n .eq. 41 ) then
        err = .486437837191339D-22
        xs( 1) = 0.12182034757117466005520314427570D-01
        xs( 2) = 0.64073155229432321691277531862909D-01
        xs( 3) = 0.15697715264143138082457102514977D+00
        xs( 4) = 0.29017819187074260036122939203923D+00
        xs( 5) = 0.46269179513019530965891593033303D+00
        xs( 6) = 0.67334795279119455370966059128461D+00
        xs( 7) = 0.92085983346589135202506471348544D+00
        xs( 8) = 0.12038838665862574686000805749136D+01
        xs( 9) = 0.15210678546637407851955090365062D+01
        xs(10) = 0.18710859982880787175870701207288D+01
        xs(11) = 0.22526617945807329157534344791526D+01
        xs(12) = 0.26645809494985897958471510037205D+01
        xs(13) = 0.31056968523928844183051327852552D+01
        xs(14) = 0.35749310675543753185014805247405D+01
        xs(15) = 0.40712709398833972444228077397087D+01
        xs(16) = 0.45937659528149482497244498717000D+01
        xs(17) = 0.51415240124189763532707740695344D+01
        xs(18) = 0.57137084144907215966700964238066D+01
        xs(19) = 0.63095359083134815319442976396687D+01
        xs(20) = 0.69282760135407523335868662494655D+01
        xs(21) = 0.75692515769512796293308945341608D+01
        xs(22) = 0.82318404673786334614364973941551D+01
        xs(23) = 0.89154782880509519139455280309038D+01
        xs(24) = 0.96196620216506343463886396800214D+01
        xs(25) = 0.10343954601530181704246567756422D+02
        xs(26) = 0.11087990514069801737475831106146D+02
        xs(27) = 0.11851482680781979780881238534348D+02
        xs(28) = 0.12634231053151233752165539722951D+02
        xs(29) = 0.13436133601003474746813752195155D+02
        xs(30) = 0.14257200730357362196705400324925D+02
        xs(31) = 0.15097574709304529892604223810272D+02
        xs(32) = 0.15957556557962908272194327847271D+02
        xs(33) = 0.16837644353408911398086216355361D+02
        xs(34) = 0.17738589583977713372912076305365D+02
        xs(35) = 0.18661483293774204507545579455056D+02
        xs(36) = 0.19607894179118845547218061547642D+02
        xs(37) = 0.20580104039752610252831754566692D+02
        xs(38) = 0.21581544420423190878089723970237D+02
        xs(39) = 0.22617713089417765783084426452513D+02
        xs(40) = 0.23698533279439357431078279745237D+02
        xs(41) = 0.24847907892884165418719851497751D+02
        ws( 1) = 0.31250017947989947530036030071989D-01
        ws( 2) = 0.72488635513496703095426226228156D-01
        ws( 3) = 0.11319749686949044190774706482783D+00
        ws( 4) = 0.15303925749743977474188584008842D+00
        ws( 5) = 0.19179179342038053190139741203815D+00
        ws( 6) = 0.22930503962688773186281717954737D+00
        ws( 7) = 0.26549398902968251073828941671944D+00
        ws( 8) = 0.30032812989414657256240412762852D+00
        ws( 9) = 0.33381850346040041982640513376708D+00
        ws(10) = 0.36600482436628069689875213618984D+00
        ws(11) = 0.39694430057911731229114608316830D+00
        ws(12) = 0.42670290431790490774500579138479D+00
        ws(13) = 0.45534920599060635297632467836559D+00
        ws(14) = 0.48295051195832658977087963245460D+00
        ws(15) = 0.50957087697546966598353254539797D+00
        ws(16) = 0.53527051806460966599669097309448D+00
        ws(17) = 0.56010618305044832253186718355531D+00
        ws(18) = 0.58413209062803008725191584495747D+00
        ws(19) = 0.60740114074397025051410987892909D+00
        ws(20) = 0.62996618228220920492229108711998D+00
        ws(21) = 0.65188121058744423202890849635439D+00
        ws(22) = 0.67320244335926139483470652304239D+00
        ws(23) = 0.69398928581679563440687584976930D+00
        ws(24) = 0.71430524414539931988512593178647D+00
        ws(25) = 0.73421888298251723055154893926631D+00
        ws(26) = 0.75380495401555661735115885421832D+00
        ws(27) = 0.77314585724666801116268718333634D+00
        ws(28) = 0.79233364579961528445866716637579D+00
        ws(29) = 0.81147286609790738128254797797627D+00
        ws(30) = 0.83068466477003527678657761202144D+00
        ws(31) = 0.85011283966907208650729649278055D+00
        ws(32) = 0.86993295740581743725604999502007D+00
        ws(33) = 0.89036649453692893577661299036135D+00
        ws(34) = 0.91170360444496257837094743875572D+00
        ws(35) = 0.93434156724111216252329011887397D+00
        ws(36) = 0.95885386858646482467917359956747D+00
        ws(37) = 0.98612505547044497197274812329374D+00
        ws(38) = 0.10176482902518253652851473120851D+01
        ws(39) = 0.10563400075833265762049613994783D+01
        ws(40) = 0.11100968870686709344698410252849D+01
        ws(41) = 0.12413602603251954351033115283723D+01
        endif
        if( n .eq. 42 ) then
        err = .134307204794282D-22
        xs( 1) = 0.11905381495805949819615420012423D-01
        xs( 2) = 0.62622815507295538003618986683144D-01
        xs( 3) = 0.15344410296241328638005391722650D+00
        xs( 4) = 0.28369838481317308504565186523975D+00
        xs( 5) = 0.45245904976159350631844952225337D+00
        xs( 6) = 0.65862040065776316691028072346399D+00
        xs( 7) = 0.90096094446143475361623979850036D+00
        xs( 8) = 0.11781994912023748270535078958657D+01
        xs( 9) = 0.14890408915402057526317605281961D+01
        xs(10) = 0.18322101042238946939544531387401D+01
        xs(11) = 0.22064751732009425279188658429427D+01
        xs(12) = 0.26106608378114873372320241091831D+01
        xs(13) = 0.30436549619997064714625402219874D+01
        xs(14) = 0.35044099660233549094670695023861D+01
        xs(15) = 0.39919411819485874410575863449022D+01
        xs(16) = 0.45053236794171208787524048904503D+01
        xs(17) = 0.50436887111165933656201963906298D+01
        xs(18) = 0.56062205584891050595491810381979D+01
        xs(19) = 0.61921542440995791875695328934801D+01
        xs(20) = 0.68007743307628221868106182349091D+01
        xs(21) = 0.74314148532337516767627255032949D+01
        xs(22) = 0.80834603235445126522493731443371D+01
        xs(23) = 0.87563477083244780970969694740558D+01
        xs(24) = 0.94495692849859289950146431332565D+01
        xs(25) = 0.10162676332341796688623559721291D+02
        xs(26) = 0.10895283691075982214993201832135D+02
        xs(27) = 0.11647075336111442804599860566113D+02
        xs(28) = 0.12417811238603349082506102810839D+02
        xs(29) = 0.13207335971427621000691948747917D+02
        xs(30) = 0.14015589753073160337752871978672D+02
        xs(31) = 0.14842622975773736328933231599813D+02
        xs(32) = 0.15688615805343409100458301011807D+02
        xs(33) = 0.16553905320846188587076729469603D+02
        xs(34) = 0.17439024166133301850517349386288D+02
        xs(35) = 0.18344757387610037157343838182540D+02
        xs(36) = 0.19272229276854188611788340720682D+02
        xs(37) = 0.20223042536612248355242521544558D+02
        xs(38) = 0.21199515508252846707923756325798D+02
        xs(39) = 0.22205122079424875655541879836804D+02
        xs(40) = 0.23245415014571045888259916407668D+02
        xs(41) = 0.24330402871287029944451473139802D+02
        xs(42) = 0.25484165005936589854976985822848D+02
        ws( 1) = 0.30540882832129250521085553050550D-01
        ws( 2) = 0.70854378034437660185436619076268D-01
        ws( 3) = 0.11067396286081647926190156204525D+00
        ws( 4) = 0.14967902778242171744553925025195D+00
        ws( 5) = 0.18765695709120994193861425552487D+00
        ws( 6) = 0.22446121891616026082726493032593D+00
        ws( 7) = 0.26000557180665693603428356985295D+00
        ws( 8) = 0.29425509737219836076792832691500D+00
        ws( 9) = 0.32721481785776941357181094152863D+00
        ws(10) = 0.35891806005124284226432664540835D+00
        ws(11) = 0.38941609926972294129413975069770D+00
        ws(12) = 0.41876985469514816308513223423479D+00
        ws(13) = 0.44704382815410535355636097981330D+00
        ws(14) = 0.47430212419871137391997717598346D+00
        ws(15) = 0.50060621366997422090101244430181D+00
        ws(16) = 0.52601404370292051056663638197239D+00
        ws(17) = 0.55058010522521806434022470056465D+00
        ws(18) = 0.57435611337624286840693030230925D+00
        ws(19) = 0.59739201928723598564999264629740D+00
        ws(20) = 0.61973714281367040162791672374688D+00
        ws(21) = 0.64144128760740796958844176661426D+00
        ws(22) = 0.66255576639808566834929933217287D+00
        ws(23) = 0.68313432129445408184200794746912D+00
        ws(24) = 0.70323396948340920910968617841566D+00
        ws(25) = 0.72291583978226925271411480565904D+00
        ws(26) = 0.74224609352965440179836679350478D+00
        ws(27) = 0.76129704992230644086241051603366D+00
        ws(28) = 0.78014866889480454420284226433309D+00
        ws(29) = 0.79889059468697748687885541321167D+00
        ws(30) = 0.81762504629363534398571956809041D+00
        ws(31) = 0.83647098343942698476097837128798D+00
        ws(32) = 0.85557022638004852599055857961805D+00
        ws(33) = 0.87509665762217945911840820485549D+00
        ws(34) = 0.89527047569765475766848513059337D+00
        ws(35) = 0.91638112909996415324976024247031D+00
        ws(36) = 0.93882604038366717166266579024439D+00
        ws(37) = 0.96318017848320638402503704244249D+00
        ws(38) = 0.99033188177642932021337756224030D+00
        ws(39) = 0.10217824496660228194473333187935D+01
        ws(40) = 0.10604651095196495061795554117448D+01
        ws(41) = 0.11143072856651481309646439530262D+01
        ws(42) = 0.12456801032136976448662229824642D+01
        endif
        if( n .eq. 43 ) then
        err = .382911289255064D-23
        xs( 1) = 0.11626372252328456374212670458372D-01
        xs( 2) = 0.61159794966810046959183981865121D-01
        xs( 3) = 0.14987881915061431291561502826982D+00
        xs( 4) = 0.27715628606965955083565608595098D+00
        xs( 5) = 0.44212234288191366235561599820790D+00
        xs( 6) = 0.64373511958981899523523585172119D+00
        xs( 7) = 0.88083886856570488425339707849744D+00
        xs( 8) = 0.11522161167780844778571625303606D+01
        xs( 9) = 0.14566308664784146790263640074527D+01
        xs(10) = 0.17928614188817443242542079712648D+01
        xs(11) = 0.21597231003357898973449419501146D+01
        xs(12) = 0.25560822632874802772244344568442D+01
        xs(13) = 0.29808634296454036662877089356038D+01
        xs(14) = 0.34330515121157727724637054310641D+01
        xs(15) = 0.39116908651104208537353052286437D+01
        xs(16) = 0.44158826130448398139243718321288D+01
        xs(17) = 0.49447813647276943989272649040236D+01
        xs(18) = 0.54975920967798641206328991011322D+01
        xs(19) = 0.60735677030877077573806951246546D+01
        xs(20) = 0.66720074749155490171324942031426D+01
        xs(21) = 0.72922566033460366011382092323476D+01
        xs(22) = 0.79337066822676577841653748357673D+01
        xs(23) = 0.85957971316290325108979351606534D+01
        xs(24) = 0.92780174493069604873003701534009D+01
        xs(25) = 0.99799102264825335167487326273855D+01
        xs(26) = 0.10701074917418521953437114795681D+02
        xs(27) = 0.11441172434254709911884626582063D+02
        xs(28) = 0.12199930739641013968810980379478D+02
        xs(29) = 0.12977151739642513731504841243263D+02
        xs(30) = 0.13772719949752955964866401108330D+02
        xs(31) = 0.14586613643854961836158318238030D+02
        xs(32) = 0.15418919545591539674403052484294D+02
        xs(33) = 0.16269852665763225145800431651622D+02
        xs(34) = 0.17139783778156887419422077747421D+02
        xs(35) = 0.18029278547482604396227058443453D+02
        xs(36) = 0.18939155060084946579755250134484D+02
        xs(37) = 0.19870571723145477457918999392211D+02
        xs(38) = 0.20825168152353595216330006833538D+02
        xs(39) = 0.21805305457778477940691400963765D+02
        xs(40) = 0.22814512229406675077724548028970D+02
        xs(41) = 0.23858421996728142047512513941629D+02
        xs(42) = 0.24947193147494335638165138918623D+02
        xs(43) = 0.26105364944387438772269712967896D+02
        ws( 1) = 0.29825669910984692355144295964445D-01
        ws( 2) = 0.69205382220869568389270119037623D-01
        ws( 3) = 0.10812583924991435450277610445322D+00
        ws( 4) = 0.14628307993629763522114175311872D+00
        ws( 5) = 0.18347441375894536245873861431574D+00
        ws( 6) = 0.21955763768885844303009109449211D+00
        ws( 7) = 0.25444622480651084427406164054947D+00
        ws( 8) = 0.28810172587381838549692780770570D+00
        ws( 9) = 0.32052378180588015301149888537877D+00
        ws(10) = 0.35173964865805965092633450512183D+00
        ws(11) = 0.38179465863996877950141387239514D+00
        ws(12) = 0.41074438810695617699646340867616D+00
        ws(13) = 0.43864878267008872007082880361040D+00
        ws(14) = 0.46556815516725603435666043693658D+00
        ws(15) = 0.49156079483227802634491887269221D+00
        ws(16) = 0.51668185560925220523304333633917D+00
        ws(17) = 0.54098318530845406056932292050608D+00
        ws(18) = 0.56451378663604117505261873019595D+00
        ws(19) = 0.58732064940911891485844043990105D+00
        ws(20) = 0.60944975083393149065596290512580D+00
        ws(21) = 0.63094708105433989081387065983743D+00
        ws(22) = 0.65185960908270683344269639361710D+00
        ws(23) = 0.67223615566580180502456100198798D+00
        ws(24) = 0.69212818221693304610438926985481D+00
        ws(25) = 0.71159053833260525828360224121508D+00
        ws(26) = 0.73068223639019518616754977249271D+00
        ws(27) = 0.74946734394281659241387077015945D+00
        ws(28) = 0.76801610838819652444811138452030D+00
        ws(29) = 0.78640646083091465841567938394592D+00
        ws(30) = 0.80472609720451175620016366514866D+00
        ws(31) = 0.82307542001893186139645036967125D+00
        ws(32) = 0.84157176977406797619398195173787D+00
        ws(33) = 0.86035562926504398473755438094638D+00
        ws(34) = 0.87959994076501507011962167195628D+00
        ws(35) = 0.89952453030760617563546898267272D+00
        ws(36) = 0.92041931526872678362632455718483D+00
        ws(37) = 0.94268350564941894236372596911182D+00
        ws(38) = 0.96689608307893364027790592367423D+00
        ws(39) = 0.99395352014060699631646821059561D+00
        ws(40) = 0.10253738154506591340968931082498D+01
        ws(41) = 0.10641274405285698474949026710271D+01
        ws(42) = 0.11182402077716393920051396140729D+01
        ws(43) = 0.12504977001955150929225625011041D+01
        endif
        if( n .eq. 44 ) then
        err = .109613829917800D-23
        xs( 1) = 0.11360127158913449306202006572560D-01
        xs( 2) = 0.59763832395720362447761889968357D-01
        xs( 3) = 0.14647754034550750343037752483981D+00
        xs( 4) = 0.27091679611719219827161727126423D+00
        xs( 5) = 0.43226745237049774892986928310237D+00
        xs( 6) = 0.62955061269612770962273266321595D+00
        xs( 7) = 0.86167573136915013529751620635781D+00
        xs( 8) = 0.11274887798719538239485957620385D+01
        xs( 9) = 0.14258127569427607286637989273888D+01
        xs(10) = 0.17554790587109610459185762055034D+01
        xs(11) = 0.21153497463432043330082723259471D+01
        xs(12) = 0.25043317757838432808141288637933D+01
        xs(13) = 0.29213847635870313117416380413370D+01
        xs(14) = 0.33655239845563833799665884365699D+01
        xs(15) = 0.38358201784062391328057115857261D+01
        xs(16) = 0.43313975011693909935532372896097D+01
        xs(17) = 0.48514306707965468402245722929771D+01
        xs(18) = 0.53951420720151162288750096782271D+01
        xs(19) = 0.59617993291282798299845992079804D+01
        xs(20) = 0.65507136410024493451844778873537D+01
        xs(21) = 0.71612390066938329170846449724636D+01
        xs(22) = 0.77927723545987944872316582051988D+01
        xs(23) = 0.84447545202224289728527143798111D+01
        xs(24) = 0.91166719921045498165683071387442D+01
        xs(25) = 0.98080593548272377579838015762092D+01
        xs(26) = 0.10518502394921796653352825796086D+02
        xs(27) = 0.11247641893955751815530997679732D+02
        xs(28) = 0.11995178210105169662007029327673D+02
        xs(29) = 0.12760876846311950444789303346798D+02
        xs(30) = 0.13544575326545618684367891252340D+02
        xs(31) = 0.14346191866446454422015870401281D+02
        xs(32) = 0.15165736557369412388915828792558D+02
        xs(33) = 0.16003326130127707637126616117447D+02
        xs(34) = 0.16859203908921568373334137114552D+02
        xs(35) = 0.17733767457925437301551286312010D+02
        xs(36) = 0.18627607952321403649891132717456D+02
        xs(37) = 0.19541568059344019022190906407933D+02
        xs(38) = 0.20476830364790710524969336369412D+02
        xs(39) = 0.21435059111283642208213704906940D+02
        xs(40) = 0.22418641988967240710890795176919D+02
        xs(41) = 0.23431139117340869421094687374492D+02
        xs(42) = 0.24478227515085412967655603343938D+02
        xs(43) = 0.25570142697900811472525094868935D+02
        xs(44) = 0.26731671865062429474380360561616D+02
        ws( 1) = 0.29143190955878038273107481351309D-01
        ws( 2) = 0.67632150672753324189358674564774D-01
        ws( 3) = 0.10569567260256812127667895364999D+00
        ws( 4) = 0.14304620290909793202350956275444D+00
        ws( 5) = 0.17949107062897802317882096540761D+00
        ws( 6) = 0.21489268202991647905171808743144D+00
        ws( 7) = 0.24916453859697148123588806761924D+00
        ws( 8) = 0.28226486901208939998853374483400D+00
        ws( 9) = 0.31418794943887691814238517829869D+00
        ws(10) = 0.34495476436468772224190125912751D+00
        ws(11) = 0.37460431159004835574609432423142D+00
        ws(12) = 0.40318630389065274799402248986023D+00
        ws(13) = 0.43075555726774330747736011699980D+00
        ws(14) = 0.45736804459637276477758063025019D+00
        ws(15) = 0.48307841849180944035823639954144D+00
        ws(16) = 0.50793872947264170026608848058869D+00
        ws(17) = 0.53199804837052573622619432068126D+00
        ws(18) = 0.55530271948629399112770533834326D+00
        ws(19) = 0.57789700746881578120763423035477D+00
        ws(20) = 0.59982394715543339579592598113937D+00
        ws(21) = 0.62112625579180329105691776028931D+00
        ws(22) = 0.64184721665683575965218124507827D+00
        ws(23) = 0.66203148854054560674286689284247D+00
        ws(24) = 0.68172583427300835490118965665915D+00
        ws(25) = 0.70097979260989067070963939785608D+00
        ws(26) = 0.71984634194258593350569992095387D+00
        ws(27) = 0.73838262376864501388154111042519D+00
        ws(28) = 0.75665081221497189311489390046223D+00
        ws(29) = 0.77471923801833777257172199916180D+00
        ws(30) = 0.79266390778681517433223235327775D+00
        ws(31) = 0.81057061155041379035113606570585D+00
        ws(32) = 0.82853789858994216595177063136953D+00
        ws(33) = 0.84668134934036442818054736134473D+00
        ws(34) = 0.86513982803239532014033788982643D+00
        ws(35) = 0.88408486127378878304320785839343D+00
        ws(36) = 0.90373514826372043137009352710005D+00
        ws(37) = 0.92437990234158743355852771656471D+00
        ws(38) = 0.94641828382217230529408325749787D+00
        ws(39) = 0.97043032005538101812610249960609D+00
        ws(40) = 0.99731555161476427326531435285517D+00
        ws(41) = 0.10285992315636570621788847966483D+01
        ws(42) = 0.10672689197870424859736049557328D+01
        ws(43) = 0.11213947792997648878490505399379D+01
        ws(44) = 0.12539758267849276009297069149417D+01
        endif
        if( n .eq. 45 ) then
        err = .315442049953877D-24
        xs( 1) = 0.11114036998577611467412940722587D-01
        xs( 2) = 0.58473341814666193745096059990845D-01
        xs( 3) = 0.14333238168944353112129543533380D+00
        xs( 4) = 0.26514496266243016007984651004415D+00
        xs( 5) = 0.42314693901240949587765204253293D+00
        xs( 6) = 0.61641602930628679070643047552218D+00
        xs( 7) = 0.84392037725864982192859177358382D+00
        xs( 8) = 0.11045630919587386062421707289136D+01
        xs( 9) = 0.13972202839255545259863280979261D+01
        xs(10) = 0.17207710869534306776113635269583D+01
        xs(11) = 0.20741195029513209155798262193178D+01
        xs(12) = 0.24562088635566885730009987210245D+01
        xs(13) = 0.28660302145790989555421311509962D+01
        xs(14) = 0.33026260933174224437208939393178D+01
        xs(15) = 0.37650911067662045388136182847218D+01
        xs(16) = 0.42525705334754417427243456419596D+01
        xs(17) = 0.47642579349116813105721062583059D+01
        xs(18) = 0.52993925178067954665675461784240D+01
        xs(19) = 0.58572567624987311523279457879992D+01
        xs(20) = 0.64371746375175026887945743850955D+01
        xs(21) = 0.70385105647203263148879974335533D+01
        xs(22) = 0.76606691847474378390432766084060D+01
        xs(23) = 0.83030958986452517729648541834503D+01
        xs(24) = 0.89652781246510084950174474160317D+01
        xs(25) = 0.96467472039792294327092893892177D+01
        xs(26) = 0.10347080909940839697127747674985D+02
        xs(27) = 0.11065906555393271476118067467549D+02
        xs(28) = 0.11802904750671871643334852620390D+02
        xs(29) = 0.12557813936914583615606625321306D+02
        xs(30) = 0.13330435911023229132512628103498D+02
        xs(31) = 0.14120642676526083557973951934913D+02
        xs(32) = 0.14928385114830111076558409420676D+02
        xs(33) = 0.15753704200868674278830232825374D+02
        xs(34) = 0.16596745832750760249861616086532D+02
        xs(35) = 0.17457780889278230661080184191501D+02
        xs(36) = 0.18337233023408227274660404398352D+02
        xs(37) = 0.19235718234349634608286264678921D+02
        xs(38) = 0.20154103025254002839943147352311D+02
        xs(39) = 0.21093593223889496623447829585848D+02
        xs(40) = 0.22055876316535559467726843365448D+02
        xs(41) = 0.23043364211813715934478139342157D+02
        xs(42) = 0.24059643968610794790375001563884D+02
        xs(43) = 0.25110425765665944174701986477141D+02
        xs(44) = 0.26205992677662814358434976001926D+02
        xs(45) = 0.27371217220831355584218849413853D+02
        ws( 1) = 0.28512352533096117216095707469093D-01
        ws( 2) = 0.66177503423347012564542415910659D-01
        ws( 3) = 0.10344746541555922870727950283265D+00
        ws( 4) = 0.14004947835393598414748967548908D+00
        ws( 5) = 0.17579994810080486848137540317306D+00
        ws( 6) = 0.21056550707442357249669752431086D+00
        ws( 7) = 0.24425973617095881411183173781909D+00
        ws( 8) = 0.27683787774776837458506239029485D+00
        ws( 9) = 0.30828933314551237495932168273599D+00
        ws(10) = 0.33862936878375985585349667181067D+00
        ws(11) = 0.36789121566548423950823351176937D+00
        ws(12) = 0.39611928695708864708872491113148D+00
        ws(13) = 0.42336383126393023825970319513802D+00
        ws(14) = 0.44967705302968439321622947424149D+00
        ws(15) = 0.47511056186109171551158559122867D+00
        ws(16) = 0.49971393030914861916507240714245D+00
        ws(17) = 0.52353411395976962433404928461209D+00
        ws(18) = 0.54661549535153712103967950409388D+00
        ws(19) = 0.56900033947060675600312099654913D+00
        ws(20) = 0.59072948471318574869311765554371D+00
        ws(21) = 0.61184313394756662249919344802033D+00
        ws(22) = 0.63238165183365917876750252737378D+00
        ws(23) = 0.65238631378845571640952127192556D+00
        ws(24) = 0.67189998658857984616959211579090D+00
        ws(25) = 0.69096774928042739233937777148829D+00
        ws(26) = 0.70963748577724306395215253203171D+00
        ws(27) = 0.72796049846621585318737132269540D+00
        ws(28) = 0.74599220764452762139852278436580D+00
        ws(29) = 0.76379301796133488119986983377967D+00
        ws(30) = 0.78142945466993370827019924856168D+00
        ws(31) = 0.79897570544849927181720954690142D+00
        ws(32) = 0.81651575686698241372470370259158D+00
        ws(33) = 0.83414640300625421688898562168363D+00
        ws(34) = 0.85198155318129931401040064296623D+00
        ws(35) = 0.87015852448498092490656727953462D+00
        ws(36) = 0.88884746789023460879096825291475D+00
        ws(37) = 0.90826594098900408336819910374619D+00
        ws(38) = 0.92870234139555607188015945765395D+00
        ws(39) = 0.95055548907267776906417808822493D+00
        ws(40) = 0.97440581209739353238644872776010D+00
        ws(41) = 0.10011545002190263663608518097589D+01
        ws(42) = 0.10323307017110088121732729172557D+01
        ws(43) = 0.10709297231637044843815652497421D+01
        ws(44) = 0.11250299601689744863333092677905D+01
        ws(45) = 0.12575155773985466370076024848749D+01
        endif

        return
        end
c
c
c
c
c
        subroutine lwtsexp3sep2(n,xs,ws,err)
        implicit real *8 (a-h,o-z)
        dimension xs(*),ws(*)
c       
c       This subroutine returns the nodes and weights for 
c       the exponential representation 
c
c       1/s = \int_0^{+\infty} exp(-st) dt
c
c       s = u+i*v, u in [2,6], v in [0, 6*sqrt(2)]
c
c       Input parameter:
c       
c       n - the number of nodes
c
c       Output parameters:
c
c       xs - the nodes: real *8 (n)
c       ws - the weights: real *8 (n)
c       err - approximation error
c
        if( n .lt. 2 .or. n .gt. 45 ) return

        if( n .eq.  2 ) then
        err = .122768611658790D+00
        xs( 1) = 0.15846579296752011598853495905281D+00
        xs( 2) = 0.54895950216357521438902185244199D+00
        ws( 1) = 0.39055658692083117403770577958408D+00
        ws( 2) = 0.56022325777642093475449024837465D+00
        endif
        if( n .eq.  3 ) then
        err = .391120340812124D-01
        xs( 1) = 0.14171077092573146010792410190959D+00
        xs( 2) = 0.55964969038006257422721487368193D+00
        xs( 3) = 0.10967172914072826694081980553127D+01
        ws( 1) = 0.33582591184666064600074175095536D+00
        ws( 2) = 0.51444058214513305755683030895633D+00
        ws( 3) = 0.65361067504622568167504578771821D+00
        endif
        if( n .eq.  4 ) then
        err = .252889618562640D-01
        xs( 1) = 0.11368003592834572809655409288891D+00
        xs( 2) = 0.46066865478877916838676320127542D+00
        xs( 3) = 0.93728863691781088451696713524296D+00
        xs( 4) = 0.14809279541275931841279347225235D+01
        ws( 1) = 0.26654194401492834187204254525133D+00
        ws( 2) = 0.42762977607673068283212758307769D+00
        ws( 3) = 0.52743893764234890857187931682017D+00
        ws( 4) = 0.65719446525503653533839061726117D+00
        endif
        if( n .eq.  5 ) then
        err = .923646567485731D-02
        xs( 1) = 0.88395742721800657380195440445470D-01
        xs( 2) = 0.38973268854620097836638988795159D+00
        xs( 3) = 0.83179838448145787915807772888520D+00
        xs( 4) = 0.13548809822991243633021640964348D+01
        xs( 5) = 0.19126990762534674128933978164868D+01
        ws( 1) = 0.21222581311648545431758053645546D+00
        ws( 2) = 0.38434421897560646785657938377859D+00
        ws( 3) = 0.49186044601458431367024053217200D+00
        ws( 4) = 0.55866380763808242673172303553839D+00
        ws( 5) = 0.66411522017904763595147238388775D+00
        endif
        if( n .eq.  6 ) then
        err = .267899669718748D-02
        xs( 1) = 0.71337434597471258807493567180934D-01
        xs( 2) = 0.34080723346334794365114935554995D+00
        xs( 3) = 0.75230633596758150145858525807588D+00
        xs( 4) = 0.12568308717898031496710666831473D+01
        xs( 5) = 0.18257307907075428304367337130077D+01
        xs( 6) = 0.24335908967422809422399216720698D+01
        ws( 1) = 0.17739907617705913060076345098740D+00
        ws( 2) = 0.35099986086886432218657256678540D+00
        ws( 3) = 0.46450694241630641281997529074979D+00
        ws( 4) = 0.54222023246932419299468269881678D+00
        ws( 5) = 0.60545939196449024719322438233688D+00
        ws( 6) = 0.71860971632808239286442320746845D+00
        endif
        if( n .eq.  7 ) then
        err = .970152605705909D-03
        xs( 1) = 0.65092041161194347096175841590056D-01
        xs( 2) = 0.31519418334821300505374000126675D+00
        xs( 3) = 0.69923790303152780429667329127178D+00
        xs( 4) = 0.11726488034783819209829728123739D+01
        xs( 5) = 0.17081080225739675116926751717914D+01
        xs( 6) = 0.22890481932241270204944203674918D+01
        xs( 7) = 0.29022104151329428216229556386470D+01
        ws( 1) = 0.16300756992872356366079978280745D+00
        ws( 2) = 0.32645864709159874409357234034850D+00
        ws( 3) = 0.43459970409768917348479093319887D+00
        ws( 4) = 0.50827243503394403769482160178457D+00
        ws( 5) = 0.56238877242434737496500664002507D+00
        ws( 6) = 0.61108143752685991025025516524592D+00
        ws( 7) = 0.72383108286201418025152613362233D+00
        endif
        if( n .eq.  8 ) then
        err = .505518032793930D-03
        xs( 1) = 0.60240940864520852198823956157739D-01
        xs( 2) = 0.29351848254402182515919741196912D+00
        xs( 3) = 0.65503051388005695329042748186824D+00
        xs( 4) = 0.11059745547300109902873684752898D+01
        xs( 5) = 0.16223749493489103816748363644516D+01
        xs( 6) = 0.21894591193589029079123260018626D+01
        xs( 7) = 0.27972916914482446477310425026087D+01
        xs( 8) = 0.34335224225520342009924845934350D+01
        ws( 1) = 0.15124602563689091392432713564857D+00
        ws( 2) = 0.30553348493968815216464855536204D+00
        ws( 3) = 0.41130745090821748770071211159711D+00
        ws( 4) = 0.48677440781413486909562636551206D+00
        ws( 5) = 0.54401749054078822807296313441884D+00
        ws( 6) = 0.59076094132080343691804661456881D+00
        ws( 7) = 0.63543282132918396371329142928280D+00
        ws( 8) = 0.73957523272328448407854064934501D+00
        endif
        if( n .eq.  9 ) then
        err = .162615375387377D-03
        xs( 1) = 0.53606169966935727424301974243626D-01
        xs( 2) = 0.26344164906875968581405631941138D+00
        xs( 3) = 0.59340995546317750288606310454225D+00
        xs( 4) = 0.10106389374199575661198024059372D+01
        xs( 5) = 0.14940449843124295923443572922435D+01
        xs( 6) = 0.20294734073773225456762438538108D+01
        xs( 7) = 0.26077050324812149154615761008411D+01
        xs( 8) = 0.32230657506832231259327736884644D+01
        xs( 9) = 0.38696084365864396924238539089884D+01
        ws( 1) = 0.13494381945263067311885118838121D+00
        ws( 2) = 0.27670176630127478524713594572452D+00
        ws( 3) = 0.37791694424944591143264582873227D+00
        ws( 4) = 0.45315494897260860192900251369525D+00
        ws( 5) = 0.51139698548817954500995987322725D+00
        ws( 6) = 0.55838091754902906171427234546837D+00
        ws( 7) = 0.59929741938657510484841916737439D+00
        ws( 8) = 0.64213519546718548543287811643958D+00
        ws( 9) = 0.75206097835921132638661544540997D+00
        endif
        if( n .eq. 10 ) then
        err = .600545881810288D-04
        xs( 1) = 0.48252391904084485608812396852016D-01
        xs( 2) = 0.24008401834159033906888607379784D+00
        xs( 3) = 0.54806567974193680715404409832938D+00
        xs( 4) = 0.94381206421950154632225269957577D+00
        xs( 5) = 0.14073086483138793668900454990192D+01
        xs( 6) = 0.19240505693306955777368553301136D+01
        xs( 7) = 0.24838038463703787895311181934136D+01
        xs( 8) = 0.30795430243501652000249139795131D+01
        xs( 9) = 0.37063835590375942782903328551932D+01
        xs(10) = 0.43586509061032165131291513123312D+01
        ws( 1) = 0.12190896573157282239643368655952D+00
        ws( 2) = 0.25551489722117559326822194798879D+00
        ws( 3) = 0.35577993126216633256412150163817D+00
        ws( 4) = 0.43244527672202411917422054748875D+00
        ws( 5) = 0.49216088120329553012027545982822D+00
        ws( 6) = 0.53973218987953969547893504916336D+00
        ws( 7) = 0.57905927528501903708337201848273D+00
        ws( 8) = 0.61369319931174419859792914055239D+00
        ws( 9) = 0.65035736687041881220039646462618D+00
        ws(10) = 0.75405252030744559432912483902542D+00
        endif
        if( n .eq. 11 ) then
        err = .180059519087869D-04
        xs( 1) = 0.43579933027510788334632264111538D-01
        xs( 2) = 0.21942146776483372400405091136229D+00
        xs( 3) = 0.50683252480673276347062923796369D+00
        xs( 4) = 0.88064220543978786147445743669286D+00
        xs( 5) = 0.13221420218187037710890515803096D+01
        xs( 6) = 0.18176970830180777806640830478437D+01
        xs( 7) = 0.23575478164181329192855561793756D+01
        xs( 8) = 0.29350167165703951226957412241143D+01
        xs( 9) = 0.35458943511039367914997340039488D+01
        xs(10) = 0.41878276430622463340432106820757D+01
        xs(11) = 0.48585843381717176429072240954289D+01
        ws( 1) = 0.11049834287761183151169320752551D+00
        ws( 2) = 0.23635670686990514018671587416944D+00
        ws( 3) = 0.33423875150809203338671225449593D+00
        ws( 4) = 0.41030115048388146185378230793524D+00
        ws( 5) = 0.47045002873480534258030611759275D+00
        ws( 6) = 0.51906911655962379999682190308689D+00
        ws( 7) = 0.55962610477019271286083699018591D+00
        ws( 8) = 0.59502360772527610431880412058068D+00
        ws( 9) = 0.62822406551878015034949547067743D+00
        ws(10) = 0.66564211482030216589761664901687D+00
        ws(11) = 0.77304552014139127652761778476165D+00
        endif
        if( n .eq. 12 ) then
        err = .736821238994436D-05
        xs( 1) = 0.41141995282538183197494228829287D-01
        xs( 2) = 0.20806975322448963011224771807061D+00
        xs( 3) = 0.48271764084778333382194266083750D+00
        xs( 4) = 0.84150633469959840904960068116517D+00
        xs( 5) = 0.12665762786452901908567753895386D+01
        xs( 6) = 0.17448418660006731205345011419621D+01
        xs( 7) = 0.22667194934296028202081333319162D+01
        xs( 8) = 0.28253212396623202706105049013008D+01
        xs( 9) = 0.34158908694178485361562852197035D+01
        xs(10) = 0.40354463631074693566061021867728D+01
        xs(11) = 0.46825218371630311748992399826998D+01
        xs(12) = 0.53564797056340328907673684528113D+01
        ws( 1) = 0.10445747465611090962246073065553D+00
        ws( 2) = 0.22513055073730660806471935531260D+00
        ws( 3) = 0.32017491014040349316078880668407D+00
        ws( 4) = 0.39445663501456515997624506231268D+00
        ws( 5) = 0.45352511474701798489052561599977D+00
        ws( 6) = 0.50142695222996142135870391550734D+00
        ws( 7) = 0.54121311987700470004713668295032D+00
        ws( 8) = 0.57529605666016644470306510180411D+00
        ws( 9) = 0.60573461245307703017220086165570D+00
        ws(10) = 0.63493144451777393977122481952705D+00
        ws(11) = 0.66907945955322007590370014768489D+00
        ws(12) = 0.77520232167696869478630858083347D+00
        endif
        if( n .eq. 13 ) then
        err = .372598138055709D-05
        xs( 1) = 0.38614635796973428248461456503797D-01
        xs( 2) = 0.19598370240330203321178030416986D+00
        xs( 3) = 0.45647585422336439588094262376266D+00
        xs( 4) = 0.79853993855433436078586920525630D+00
        xs( 5) = 0.12056960485886727347561718713877D+01
        xs( 6) = 0.16659132975696276758431419792287D+01
        xs( 7) = 0.21702772816189431020903079402443D+01
        xs( 8) = 0.27121811729205074508558148249730D+01
        xs( 9) = 0.32868605385400640665760905822625D+01
        xs(10) = 0.38910959777447362063295781026322D+01
        xs(11) = 0.45230375787090768287571959746209D+01
        xs(12) = 0.51820452276040174048065116867824D+01
        xs(13) = 0.58679145116774211845777392389774D+01
        ws( 1) = 0.98141803827640752016808726981090D-01
        ws( 2) = 0.21284662674804457294599049019906D+00
        ws( 3) = 0.30447187758605360826341999406669D+00
        ws( 4) = 0.37693425998773638195805411178204D+00
        ws( 5) = 0.43539690630329336587877426011408D+00
        ws( 6) = 0.48356574216016177015100935813340D+00
        ws( 7) = 0.52407386295943927055936644107871D+00
        ws( 8) = 0.55896568966966353738780506629567D+00
        ws( 9) = 0.58994169653788444597572858045736D+00
        ws(10) = 0.61856961255033735248032578043975D+00
        ws(11) = 0.64686595492519275316484130940582D+00
        ws(12) = 0.68056826022566202494900018498176D+00
        ws(13) = 0.78516201397074582333993560372021D+00
        endif
        if( n .eq. 14 ) then
        err = .107177057417285D-05
        xs( 1) = 0.35889738230798867395933149800259D-01
        xs( 2) = 0.18284664225392146825460917478355D+00
        xs( 3) = 0.42785043227284170372527983277197D+00
        xs( 4) = 0.75171514450840347631125558768596D+00
        xs( 5) = 0.11393724493572298571920663978509D+01
        xs( 6) = 0.15796368449448160565513901629972D+01
        xs( 7) = 0.20640402185139878995669086405288D+01
        xs( 8) = 0.25861039977511529131109410957558D+01
        xs( 9) = 0.31409529674678869842124433962187D+01
        xs(10) = 0.37250804886950341384326007756651D+01
        xs(11) = 0.43362141551737565753880768622238D+01
        xs(12) = 0.49733033909364814104346263996454D+01
        xs(13) = 0.56366193507247160043686528085971D+01
        xs(14) = 0.63281778292570484716767794646607D+01
        ws( 1) = 0.91312661970521118680671071216085D-01
        ws( 2) = 0.19940430658678459131422916442715D+00
        ws( 3) = 0.28732868807843229714361390788703D+00
        ws( 4) = 0.35790583291154014335015230701797D+00
        ws( 5) = 0.41556617238732559264256456390532D+00
        ws( 6) = 0.46356303532825195560230383008374D+00
        ws( 7) = 0.50417131155524231822841860378225D+00
        ws( 8) = 0.53915284993125386392354447564495D+00
        ws( 9) = 0.56998267214896068960145185808565D+00
        ws(10) = 0.59797100411336854077867958569477D+00
        ws(11) = 0.62444612639454686220857788320752D+00
        ws(12) = 0.65134237592017581862277090632767D+00
        ws(13) = 0.68460828237422113416726156197847D+00
        ws(14) = 0.79164640160726428191492642760012D+00
        endif
        if( n .eq. 15 ) then
        err = .398497308549730D-06
        xs( 1) = 0.33412427088048321470349705602034D-01
        xs( 2) = 0.17101007890524721778624934853932D+00
        xs( 3) = 0.40251313488783820239489741397408D+00
        xs( 4) = 0.71122352587003260692318759164281D+00
        xs( 5) = 0.10833970903180761935229039913612D+01
        xs( 6) = 0.15084743142949925099797596069320D+01
        xs( 7) = 0.19782464080930738020385089459219D+01
        xs( 8) = 0.24862589241615639970110459440720D+01
        xs( 9) = 0.30274854106217072649232559167890D+01
        xs(10) = 0.35981212643475187007864485626218D+01
        xs(11) = 0.41954327823201678736474663648996D+01
        xs(12) = 0.48176671785598880739107934150296D+01
        xs(13) = 0.54640573331708193105826855359627D+01
        xs(14) = 0.61348843847403440917760608581150D+01
        xs(15) = 0.68317863749144095575337758821214D+01
        ws( 1) = 0.85116078138325470996389126028736D-01
        ws( 2) = 0.18745254454732979317385584062176D+00
        ws( 3) = 0.27269636633669625512170314492689D+00
        ws( 4) = 0.34243991984847771595778839096515D+00
        ws( 5) = 0.40016348718572523588607698332674D+00
        ws( 6) = 0.44863254592726746865995833785477D+00
        ws( 7) = 0.48984128117168097232947239435480D+00
        ws( 8) = 0.52535064703389692530065014446834D+00
        ws( 9) = 0.55647555925469832943071199485119D+00
        ws(10) = 0.58435994177755324633459004453814D+00
        ws(11) = 0.61004159714771105317567693429243D+00
        ws(12) = 0.63460306382377419417780093716842D+00
        ws(13) = 0.65971865353066865184474383525861D+00
        ws(14) = 0.69092174938057026996796147801869D+00
        ws(15) = 0.79483243546640787563364763912794D+00
        endif
        if( n .eq. 16 ) then
        err = .161545193902106D-06
        xs( 1) = 0.31200538765644214761238889321084D-01
        xs( 2) = 0.16035304154263118266786806441077D+00
        xs( 3) = 0.37941174559233104945446154022558D+00
        xs( 4) = 0.67368985567541691659214620058181D+00
        xs( 5) = 0.10304398345001631995863702735829D+01
        xs( 6) = 0.14395796108725763888814871217413D+01
        xs( 7) = 0.18932003450084454724043832811726D+01
        xs( 8) = 0.23850560680076178711187761377159D+01
        xs( 9) = 0.29102341997154653818528966760949D+01
        xs(10) = 0.34649449602478936653701929975085D+01
        xs(11) = 0.40463761975010443231509220660630D+01
        xs(12) = 0.46526030495214874589396187951430D+01
        xs(13) = 0.52825703064899545282194650228282D+01
        xs(14) = 0.59361928628598875426999770291622D+01
        xs(15) = 0.66146292158695912403087894616833D+01
        xs(16) = 0.73215736310059947546351735819556D+01
        ws( 1) = 0.79571198784956191696754424163024D-01
        ws( 2) = 0.17657760769450581470856930858978D+00
        ws( 3) = 0.25902069333442322751605056999200D+00
        ws( 4) = 0.32740618335694194211270231177504D+00
        ws( 5) = 0.38442404126815677527213300941802D+00
        ws( 6) = 0.43254608797494184766761015465970D+00
        ws( 7) = 0.47365974436696338132712584561015D+00
        ws( 8) = 0.50923666912926382054513669681813D+00
        ws( 9) = 0.54049156470774710117339645045245D+00
        ws(10) = 0.56846704940601203256780782325250D+00
        ws(11) = 0.59409085893602315790701197600963D+00
        ws(12) = 0.61824908800090563807801444336302D+00
        ws(13) = 0.64194574515055467403247451589238D+00
        ws(14) = 0.66687021651823671367605688266409D+00
        ws(15) = 0.69879359122661096950258686206917D+00
        ws(16) = 0.80563074255526062000343870074991D+00
        endif
        if( n .eq. 17 ) then
        err = .592520959896760D-07
        xs( 1) = 0.29845882827347517364571267735269D-01
        xs( 2) = 0.15371352350831028741779573448392D+00
        xs( 3) = 0.36467956946651975711134282577769D+00
        xs( 4) = 0.64917475024462820165081519627104D+00
        xs( 5) = 0.99508661096959450354108916637193D+00
        xs( 6) = 0.13926996821321844915418013674458D+01
        xs( 7) = 0.18343580544191755262046232014123D+01
        xs( 8) = 0.23139829076551532410736772976992D+01
        xs( 9) = 0.28267293072374237101765256106562D+01
        xs(10) = 0.33687680152141959020686274431412D+01
        xs(11) = 0.39371395698663260748630992565727D+01
        xs(12) = 0.45296541489321140705519842747457D+01
        xs(13) = 0.51448369391625327608955322777643D+01
        xs(14) = 0.57819389596042126908587403888498D+01
        xs(15) = 0.64410566361057182812443245669446D+01
        xs(16) = 0.71234055913846303690726193945706D+01
        xs(17) = 0.78327376713167304278889377755122D+01
        ws( 1) = 0.76159686830364898272135648507126D-01
        ws( 2) = 0.16966007691282963742400599736242D+00
        ws( 3) = 0.24994179447553724192146146065769D+00
        ws( 4) = 0.31702009249426996493596354122196D+00
        ws( 5) = 0.37319244502712611435745866743486D+00
        ws( 6) = 0.42076620500760690558551986045376D+00
        ws( 7) = 0.46154302654003177455659590730203D+00
        ws( 8) = 0.49690278083879379486833554006069D+00
        ws( 9) = 0.52795450295203687554509274529138D+00
        ws(10) = 0.55563242817084924880636360173628D+00
        ws(11) = 0.58075055442107533906113554922611D+00
        ws(12) = 0.60404746892754575093934554791636D+00
        ws(13) = 0.62625153828649721687243060030149D+00
        ws(14) = 0.64823143334681109978470477730496D+00
        ws(15) = 0.67154453503215688032094272485293D+00
        ws(16) = 0.70177883712653679046991249989501D+00
        ws(17) = 0.80683633137147623320778434822660D+00
        endif
        if( n .eq. 18 ) then
        err = .215853569719032D-07
        xs( 1) = 0.28346752424403455097398971325482D-01
        xs( 2) = 0.14626403517141895221885345817628D+00
        xs( 3) = 0.34786798961213387668441342444806D+00
        xs( 4) = 0.62078756180270512098673099416416D+00
        xs( 5) = 0.95371830280952769667512699339521D+00
        xs( 6) = 0.13374862561022701365424628055118D+01
        xs( 7) = 0.17648429975240145261616477332569D+01
        xs( 8) = 0.22300226171988627847723755626545D+01
        xs( 9) = 0.27283956127680750240457157683693D+01
        xs(10) = 0.32562479267884368891569661376358D+01
        xs(11) = 0.38106416123627618243290182146023D+01
        xs(12) = 0.43893233220174621934348487076596D+01
        xs(13) = 0.49906686199548389177590771064286D+01
        xs(14) = 0.56136670750434873672524090602486D+01
        xs(15) = 0.62579702836305378352207520298058D+01
        xs(16) = 0.69240538101937641855848391316431D+01
        xs(17) = 0.76135714561208077486898480333800D+01
        xs(18) = 0.83310091393161295848424405300716D+01
        ws( 1) = 0.72369965075421373055968120129872D-01
        ws( 2) = 0.16177510253798546794749894821833D+00
        ws( 3) = 0.23930667977007537873945033302217D+00
        ws( 4) = 0.30463536322940153538794425483725D+00
        ws( 5) = 0.35970287745448947487309478264577D+00
        ws( 6) = 0.40663296304722162092242133578816D+00
        ws( 7) = 0.44712529107651972227328524750835D+00
        ws( 8) = 0.48246594387158105205332603561927D+00
        ws( 9) = 0.51366336282732882061556553366524D+00
        ws(10) = 0.54155338572663477094234212243972D+00
        ws(11) = 0.56686032308641487159706753588139D+00
        ws(12) = 0.59023610772782939957628930014439D+00
        ws(13) = 0.61229868171522989500579142450461D+00
        ws(14) = 0.63369262315493724020711337277053D+00
        ws(15) = 0.65523571513919607507648874844114D+00
        ws(16) = 0.67846666785012181083391992341349D+00
        ws(17) = 0.70899156522964046401567364450581D+00
        ws(18) = 0.81452230103717156165712027070212D+00
        endif
        if( n .eq. 19 ) then
        err = .668666526902683D-08
        xs( 1) = 0.26902081277198625173302906319106D-01
        xs( 2) = 0.13905636811167209759868988990795D+00
        xs( 3) = 0.33154842774169946398368683192809D+00
        xs( 4) = 0.59321601955867785418251072473144D+00
        xs( 5) = 0.91361358154741442142594130106507D+00
        xs( 6) = 0.12841144954016934591891041241558D+01
        xs( 7) = 0.16978215157999255734411160623091D+01
        xs( 8) = 0.21491903935519085528202338627110D+01
        xs( 9) = 0.26337112190802334834128525086025D+01
        xs(10) = 0.31477018174692014219933916181065D+01
        xs(11) = 0.36881804619184197092036515614791D+01
        xs(12) = 0.42527831567489456068520318666751D+01
        xs(13) = 0.48397087079656559544134832715214D+01
        xs(14) = 0.54476903611333077854620813215713D+01
        xs(15) = 0.60760046213987543966099051508646D+01
        xs(16) = 0.67245433859903671499974878132002D+01
        xs(17) = 0.73940082483503270784988163849999D+01
        xs(18) = 0.80863485482453866462985903748925D+01
        xs(19) = 0.88069978882870729783791493829871D+01
        ws( 1) = 0.68713437850924652918648574749457D-01
        ws( 2) = 0.15411568488061970885060285909172D+00
        ws( 3) = 0.22894966157224744697809215075406D+00
        ws( 4) = 0.29262991381854650734939848621562D+00
        ws( 5) = 0.34673105928961686461605935514207D+00
        ws( 6) = 0.39312818611670381285811825895210D+00
        ws( 7) = 0.43336717685973594989642104778743D+00
        ws( 8) = 0.46862227091079892597143624142856D+00
        ws( 9) = 0.49980774218444638922798256109891D+00
        ws(10) = 0.52767791754849082945982916275209D+00
        ws(11) = 0.55288653934561358486178430881598D+00
        ws(12) = 0.57602002419587579589059043988114D+00
        ws(13) = 0.59762306703926012770504063088877D+00
        ws(14) = 0.61823105664480682711673848071850D+00
        ws(15) = 0.63842864548616054339067709298056D+00
        ws(16) = 0.65899729490633599891327857066139D+00
        ws(17) = 0.68147137499455142011732040944110D+00
        ws(18) = 0.71155160186305768105470743147814D+00
        ws(19) = 0.81794149026170924718700034055991D+00
        endif
        if( n .eq. 20 ) then
        err = .289686668651284D-08
        xs( 1) = 0.25461376114353654750152967625636D-01
        xs( 2) = 0.13188806250920954383809110391836D+00
        xs( 3) = 0.31541508946776764125889023885701D+00
        xs( 4) = 0.56620854027262848474187278631007D+00
        xs( 5) = 0.87476812224416232403988935420255D+00
        xs( 6) = 0.12330344326029569959943326856771D+01
        xs( 7) = 0.16344370932370326564089086921316D+01
        xs( 8) = 0.20736223975443559643668485907740D+01
        xs( 9) = 0.25461861481830544133243387404212D+01
        xs(10) = 0.30484877589462977815975931635951D+01
        xs(11) = 0.35775314891597735705250021895429D+01
        xs(12) = 0.41308877991456634380527911992236D+01
        xs(13) = 0.47066383384166517016315793826016D+01
        xs(14) = 0.53033397253613611362958008016728D+01
        xs(15) = 0.59200096511798534501441977021636D+01
        xs(16) = 0.65561468138295875611284947673539D+01
        xs(17) = 0.72118101820706106966963198002113D+01
        xs(18) = 0.78878139752480146142083936576887D+01
        xs(19) = 0.85861458240946765786776470937805D+01
        xs(20) = 0.93121341475710687348915495301560D+01
        ws( 1) = 0.65068977829751525838681049924996D-01
        ws( 2) = 0.14652857741820377282435599028685D+00
        ws( 3) = 0.21883554000353590138810210377716D+00
        ws( 4) = 0.28115219435998637932041240932064D+00
        ws( 5) = 0.33462472543546701146984479932627D+00
        ws( 6) = 0.38081805509483359531947279076094D+00
        ws( 7) = 0.42109955159987227494328903120733D+00
        ws( 8) = 0.45654006312288300660245525760142D+00
        ws( 9) = 0.48798258848875376730224776489668D+00
        ws(10) = 0.51612263534532051240296833846881D+00
        ws(11) = 0.54156087363862438147916066823147D+00
        ws(12) = 0.56483285117518840909744502960989D+00
        ws(13) = 0.58642868852823226718185304844482D+00
        ws(14) = 0.60681295225113338428327923429263D+00
        ws(15) = 0.62645349804092768517000214594153D+00
        ws(16) = 0.64587595861280644489969146632184D+00
        ws(17) = 0.66580432048239470918746427189852D+00
        ws(18) = 0.68769814627059424534529542022279D+00
        ws(19) = 0.71708420819984339315550450696889D+00
        ws(20) = 0.82211404076257602306416849057467D+00
        endif
        if( n .eq. 21 ) then
        err = .880206915879626D-09
        xs( 1) = 0.24235762855133600175845435487511D-01
        xs( 2) = 0.12575992195043985132819607062133D+00
        xs( 3) = 0.30151812054506580172235863546347D+00
        xs( 4) = 0.54272350800539473439842077025006D+00
        xs( 5) = 0.84060797455535444866390979835052D+00
        xs( 6) = 0.11875320863434837993048570745704D+01
        xs( 7) = 0.15771595856595837013254639278539D+01
        xs( 8) = 0.20042824393499857635475214109453D+01
        xs( 9) = 0.24645979188934185216787886820157D+01
        xs(10) = 0.29545339507351940815112437831102D+01
        xs(11) = 0.34711295887187709576412979091507D+01
        xs(12) = 0.40119540808941848208866582575860D+01
        xs(13) = 0.45750501599729108550198647719259D+01
        xs(14) = 0.51588948768972317892203344073154D+01
        xs(15) = 0.57623779443283805021928073480492D+01
        xs(16) = 0.63848031079235403296230916316069D+01
        xs(17) = 0.70259255349621403614573409673033D+01
        xs(18) = 0.76860543003703606391618794471479D+01
        xs(19) = 0.83662896592214439860628350342032D+01
        xs(20) = 0.90690709285130625139725238266287D+01
        xs(21) = 0.98010753762607609820867650597922D+01
        ws( 1) = 0.61964727793614788381660673955472D-01
        ws( 2) = 0.14000302514088024535519975317821D+00
        ws( 3) = 0.21000428381962294271397233349523D+00
        ws( 4) = 0.27092848451203623348878516472455D+00
        ws( 5) = 0.32356576384796030454600542296249D+00
        ws( 6) = 0.36922999595817291510817365131007D+00
        ws( 7) = 0.40916089257638956617688042387037D+00
        ws( 8) = 0.44437059654070522070815755466293D+00
        ws( 9) = 0.47566696301617789407294303215614D+00
        ws(10) = 0.50371292860640461614939442612981D+00
        ws(11) = 0.52907416942870580967284537922794D+00
        ws(12) = 0.55224931332934619781112931763943D+00
        ws(13) = 0.57368958548962410344858961932229D+00
        ws(14) = 0.59381549359014577099654209976207D+00
        ws(15) = 0.61303663785263069626007042449820D+00
        ws(16) = 0.63178176560367010482186458581525D+00
        ws(17) = 0.65055599618645993063173619906523D+00
        ws(18) = 0.67008826699350025066081422563917D+00
        ws(19) = 0.69189062597153850342460284076546D+00
        ws(20) = 0.72170169079815446273050664197980D+00
        ws(21) = 0.82881844272584243022279459184668D+00
        endif
        if( n .eq. 22 ) then
        err = .329959230101759D-09
        xs( 1) = 0.23355454115655488359101976975584D-01
        xs( 2) = 0.12132558939602738036078448704353D+00
        xs( 3) = 0.29135206945707914644697241048415D+00
        xs( 4) = 0.52533536375193351457092539349164D+00
        xs( 5) = 0.81502078467532543170021780918552D+00
        xs( 6) = 0.11530955700978932825352679187236D+01
        xs( 7) = 0.15334334092392071001310691357150D+01
        xs( 8) = 0.19509755217111580193733309272419D+01
        xs( 9) = 0.24015315612670858271815502223904D+01
        xs(10) = 0.28816084720590818968957967768091D+01
        xs(11) = 0.33882877535165028241078526503531D+01
        xs(12) = 0.39191416121168365516847853608169D+01
        xs(13) = 0.44721748045897886748876147262164D+01
        xs(14) = 0.50457836398015680720646475918257D+01
        xs(15) = 0.56387290168824516007078487996641D+01
        xs(16) = 0.62501247786788969213212031536484D+01
        xs(17) = 0.68794469901763179223546348686405D+01
        xs(18) = 0.75265766126394180943986703492911D+01
        xs(19) = 0.81919032336501872634310187302987D+01
        xs(20) = 0.88765547091975595026771864331176D+01
        xs(21) = 0.95829060912726841738643414944442D+01
        xs(22) = 0.10317344730538315399374485396470D+02
        ws( 1) = 0.59730824436407624130651878795473D-01
        ws( 2) = 0.13523861229884799192833668252351D+00
        ws( 3) = 0.20342395180268523569334025916718D+00
        ws( 4) = 0.26314993062354240685142017769517D+00
        ws( 5) = 0.31499928766662851127837508398870D+00
        ws( 6) = 0.36013185636534966537643674069380D+00
        ws( 7) = 0.39970422870796463105430544464367D+00
        ws( 8) = 0.43468448435409816075145462126792D+00
        ws( 9) = 0.46584743288087205663818954451938D+00
        ws(10) = 0.49382133701210146812618855543318D+00
        ws(11) = 0.51913354749394813426500228499281D+00
        ws(12) = 0.54224232069993007035363457395221D+00
        ws(13) = 0.56355728483255134594298197944117D+00
        ws(14) = 0.58345424831667653026135977877997D+00
        ws(15) = 0.60228931452402860054025077866754D+00
        ws(16) = 0.62041664876549004355580516501980D+00
        ws(17) = 0.63821617767457374538222717288191D+00
        ws(18) = 0.65614742250073167448578662579540D+00
        ws(19) = 0.67489039079602844703597943673828D+00
        ws(20) = 0.69588609637909278535233147524558D+00
        ws(21) = 0.72470240880524644264682981806265D+00
        ws(22) = 0.83014404742716105346038746211200D+00
        endif
        if( n .eq. 23 ) then
        err = .143490912239771D-09
        xs( 1) = 0.22392430243488189603323966176755D-01
        xs( 2) = 0.11643914494084070526926904964132D+00
        xs( 3) = 0.28003231659520648079564988248311D+00
        xs( 4) = 0.50576047007355865624413066918286D+00
        xs( 5) = 0.78592757054519169460792003625262D+00
        xs( 6) = 0.11136119141518593052776012417466D+01
        xs( 7) = 0.14829591291517044115036335054903D+01
        xs( 8) = 0.18891121041532122532323844415937D+01
        xs( 9) = 0.23280377037563103180987847656410D+01
        xs(10) = 0.27963637460885287548224105869640D+01
        xs(11) = 0.32912569334633041116004132318670D+01
        xs(12) = 0.38103387380012358525224413738563D+01
        xs(13) = 0.43516280803650439496602041774665D+01
        xs(14) = 0.49135016127442833104491179000762D+01
        xs(15) = 0.54946667794434007133544014805259D+01
        xs(16) = 0.60941467677911499555205307700646D+01
        xs(17) = 0.67112798088090606863628409729316D+01
        xs(18) = 0.73457392362764578854953014348071D+01
        xs(19) = 0.79975879036420389477292752515427D+01
        xs(20) = 0.86673973788840190381394591184521D+01
        xs(21) = 0.93565059239437431581915415542008D+01
        xs(22) = 0.10067609848564506245291145733006D+02
        xs(23) = 0.10807895908758714115145357967477D+02
        ws( 1) = 0.57282413401213155572764997094303D-01
        ws( 2) = 0.12994285835764288486119896291186D+00
        ws( 3) = 0.19597184615712497516228649707531D+00
        ws( 4) = 0.25418512369895684344040765592721D+00
        ws( 5) = 0.30499161977369310953220681239839D+00
        ws( 6) = 0.34940311149015252854164654893926D+00
        ws( 7) = 0.38848492826395224313272509499046D+00
        ws( 8) = 0.42315160336875406471886567267024D+00
        ws( 9) = 0.45413958362659545605525117458572D+00
        ws(10) = 0.48204165707925843390132449784278D+00
        ws(11) = 0.50734923057375177264915315474570D+00
        ws(12) = 0.53048485352309101228978524997495D+00
        ws(13) = 0.55182373358739445836950725914558D+00
        ws(14) = 0.57170820581708722653819862232645D+00
        ws(15) = 0.59045950603725391255896694439288D+00
        ws(16) = 0.60839044098677728135081726375367D+00
        ws(17) = 0.62582256822684273875522502978449D+00
        ws(18) = 0.64311405072992933398086961383447D+00
        ws(19) = 0.66071488737933698779302774292482D+00
        ws(20) = 0.67931203588778875355933341885295D+00
        ws(21) = 0.70038276890065800144673966628942D+00
        ws(22) = 0.72961343459571182009092594663280D+00
        ws(23) = 0.83615701646490576359597218199163D+00
        endif
        if( n .eq. 24 ) then
        err = .456255393377034D-10
        xs( 1) = 0.21495603380875779976732707957715D-01
        xs( 2) = 0.11188189513820847418184580727478D+00
        xs( 3) = 0.26946146325069613762253231986206D+00
        xs( 4) = 0.48748022681460990304370079052102D+00
        xs( 5) = 0.75880287025524303296197772361685D+00
        xs( 6) = 0.10769122035229772039550720460812D+01
        xs( 7) = 0.14362291691994618910283599481623D+01
        xs( 8) = 0.18320837864699426698436915356874D+01
        xs( 9) = 0.22605705538652355502848455864748D+01
        xs(10) = 0.27184005793460983030924356089447D+01
        xs(11) = 0.32027866701044528072938092998318D+01
        xs(12) = 0.37113630799797738864239382769103D+01
        xs(13) = 0.42421309486251671335854334739668D+01
        xs(14) = 0.47934205226789712201514841093181D+01
        xs(15) = 0.53638646146410947418007858655254D+01
        xs(16) = 0.59523812025940003302541578482812D+01
        xs(17) = 0.65581658469120600982495586429941D+01
        xs(18) = 0.71806971651763924650457454355157D+01
        xs(19) = 0.78197621753513798615003171764882D+01
        xs(20) = 0.84755153970613633264674561498802D+01
        xs(21) = 0.91486025565054808306449186114919D+01
        xs(22) = 0.98404243417619128248414028669146D+01
        xs(23) = 0.10553746275588159035772328691610D+02
        xs(24) = 0.11296063768948928570013193624797D+02
        ws( 1) = 0.55001321126767867627396232301913D-01
        ws( 2) = 0.12499652032677149987101189761582D+00
        ws( 3) = 0.18900444042729171278107155421912D+00
        ws( 4) = 0.24582792406823282233197431479686D+00
        ws( 5) = 0.29572669709333913436180265073871D+00
        ws( 6) = 0.33956316512740061720453354688285D+00
        ws( 7) = 0.37829509058072361735385687655133D+00
        ws( 8) = 0.41276576108962025602991702608851D+00
        ws( 9) = 0.44366153528631426643073983914247D+00
        ws(10) = 0.47153529604855166926628415940131D+00
        ws(11) = 0.49684348195400183710218978174839D+00
        ws(12) = 0.51997681215370016261599278129711D+00
        ws(13) = 0.54128107423691309905660291781763D+00
        ws(14) = 0.56107051281014414020549583029968D+00
        ws(15) = 0.57963750798400784212110635605619D+00
        ws(16) = 0.59726166108100775836280942104553D+00
        ws(17) = 0.61422087033703294809226487701412D+00
        ws(18) = 0.63080744038326969238120670671181D+00
        ws(19) = 0.64735513184798849559419088355381D+00
        ws(20) = 0.66429371267393959718036557957885D+00
        ws(21) = 0.68229326947058745151152807270323D+00
        ws(22) = 0.70281597647705286277574989992255D+00
        ws(23) = 0.73154195230305340195962779851323D+00
        ws(24) = 0.83799842932815881659225023213113D+00
        endif
        if( n .eq. 25 ) then
        err = .174201684583213D-10
        xs( 1) = 0.20556537199841335766600488651312D-01
        xs( 2) = 0.10711367743244690231338995195211D+00
        xs( 3) = 0.25842198417576519037347944882295D+00
        xs( 4) = 0.46845093561126474439148390101692D+00
        xs( 5) = 0.73068980061002379072941297140920D+00
        xs( 6) = 0.10390675898571046262801471276321D+01
        xs( 7) = 0.13882967069307026752632531152948D+01
        xs( 8) = 0.17738933863330162318833366758298D+01
        xs( 9) = 0.21920733923964740822983604434128D+01
        xs(10) = 0.26396284135832223752311452603973D+01
        xs(11) = 0.31138231114450360095829078498098D+01
        xs(12) = 0.36123199064381684956584683488570D+01
        xs(13) = 0.41331263860191088750810489236694D+01
        xs(14) = 0.46745582725146859303737721112768D+01
        xs(15) = 0.52352127956563295726731933721146D+01
        xs(16) = 0.58139499205995951652092973690555D+01
        xs(17) = 0.64098811005008462542719763598685D+01
        xs(18) = 0.70223670736515686993002374449648D+01
        xs(19) = 0.76510282895372757387821969047873D+01
        xs(20) = 0.82957749443990776518808908625410D+01
        xs(21) = 0.89568707617037070327043033129680D+01
        xs(22) = 0.96350620142788620040993471125250D+01
        xs(23) = 0.10331849356976694071276427566618D+02
        xs(24) = 0.11050116373239278981280350760117D+02
        xs(25) = 0.11797582225496076339525255600220D+02
        ws( 1) = 0.52613147479649761053985572343454D-01
        ws( 2) = 0.11982715949984502243001683419897D+00
        ws( 3) = 0.18175625528116270999157493411853D+00
        ws( 4) = 0.23720166248988733287701357183739D+00
        ws( 5) = 0.28625917932493498519667958914012D+00
        ws( 6) = 0.32961527314688948825594691523852D+00
        ws( 7) = 0.36809764059588960627986233417565D+00
        ws( 8) = 0.40246715393691017478485805483072D+00
        ws( 9) = 0.43335986439000366233746162005102D+00
        ws(10) = 0.46129552591986154109154127837764D+00
        ws(11) = 0.48670513174234053940457636970255D+00
        ws(12) = 0.50995699459778147209594040253528D+00
        ws(13) = 0.53137569052457169758467987824913D+00
        ws(14) = 0.55125460272126447280142132993564D+00
        ws(15) = 0.56986463886448576837623019529908D+00
        ws(16) = 0.58746159960458269955456412181619D+00
        ws(17) = 0.60429418455863148538654197457120D+00
        ws(18) = 0.62061451212511636683161554972456D+00
        ws(19) = 0.63669386474083617594877510474700D+00
        ws(20) = 0.65284946486249197131703492823022D+00
        ws(21) = 0.66949880037292803461001460031395D+00
        ws(22) = 0.68730338037881713101935622326458D+00
        ws(23) = 0.70771723017688538986405837468347D+00
        ws(24) = 0.73639140523240332316770722549862D+00
        ws(25) = 0.84268946704903984983011981215317D+00
        endif
        if( n .eq. 26 ) then
        err = .631246951372555D-11
        xs( 1) = 0.19796466801490801479997088072369D-01
        xs( 2) = 0.10324320580010463700841785107729D+00
        xs( 3) = 0.24941960736675602997886194589128D+00
        xs( 4) = 0.45284240792462314711403558666752D+00
        xs( 5) = 0.70747367877402413990074925356443D+00
        xs( 6) = 0.10075760564035693197608106385859D+01
        xs( 7) = 0.13480743939770336066547880384201D+01
        xs( 8) = 0.17246172413097317351586360539271D+01
        xs( 9) = 0.21335065620176581433554580915186D+01
        xs(10) = 0.25715941260471693324643596839623D+01
        xs(11) = 0.30361873044172861499077711961250D+01
        xs(12) = 0.35249761910008755559051482178260D+01
        xs(13) = 0.40359807230909670964068771285997D+01
        xs(14) = 0.45675127525218791961798512731432D+01
        xs(15) = 0.51181484969088287420503473636692D+01
        xs(16) = 0.56867085557683431609472927606665D+01
        xs(17) = 0.62722444475712369710650000485987D+01
        xs(18) = 0.68740321229276113338056419625400D+01
        xs(19) = 0.74915743542085090415407571657094D+01
        xs(20) = 0.81246158421084965422572644943731D+01
        xs(21) = 0.87731783921756475356145960334703D+01
        xs(22) = 0.94376311306922180139792479945347D+01
        xs(23) = 0.10118829512612743687660236581092D+02
        xs(24) = 0.10818408565408624002469327562156D+02
        xs(25) = 0.11539485956885981595105153888264D+02
        xs(26) = 0.12290607159238139016704087391286D+02
        ws( 1) = 0.50678802375320098259962238818795D-01
        ws( 2) = 0.11561619831748327355908010766677D+00
        ws( 3) = 0.17579800788085162045598005801456D+00
        ws( 4) = 0.23002732118913923507978498638189D+00
        ws( 5) = 0.27827348213021621280218460863227D+00
        ws( 6) = 0.32108480573131936787773142389947D+00
        ws( 7) = 0.35918802366447223454027640853870D+00
        ws( 8) = 0.39328314939642394201074818475595D+00
        ws( 9) = 0.42397237864592050907936313958003D+00
        ws(10) = 0.45175518584093849316012019637306D+00
        ws(11) = 0.47704705439113227345418460140186D+00
        ws(12) = 0.50020132929171106963223565290835D+00
        ws(13) = 0.52152682963077571049175623825047D+00
        ws(14) = 0.54130026371329205842113571097936D+00
        ws(15) = 0.55977488649512029539319072640320D+00
        ws(16) = 0.57718727245369262071138112670709D+00
        ws(17) = 0.59376383668011918665357926668594D+00
        ws(18) = 0.60972852310993528848431659669984D+00
        ws(19) = 0.62531328004615134705473984598753D+00
        ws(20) = 0.64077402097720620791302672140228D+00
        ws(21) = 0.65641808425177544685019834143759D+00
        ws(22) = 0.67266028188416936715576632547187D+00
        ws(23) = 0.69017100370963638509659563139438D+00
        ws(24) = 0.71043808717334547792126143104448D+00
        ws(25) = 0.73924199153959284106050874932105D+00
        ws(26) = 0.84679537724855606377582418875505D+00
        endif
        if( n .eq. 27 ) then
        err = .261067819937154D-11
        xs( 1) = 0.19166609414747560040863428980262D-01
        xs( 2) = 0.10002285085797503046873610211331D+00
        xs( 3) = 0.24188224260861302705272151309627D+00
        xs( 4) = 0.43967714218376752052176898756475D+00
        xs( 5) = 0.68774307483851227903335328794220D+00
        xs( 6) = 0.98062167104049962834983850685800D+00
        xs( 7) = 0.13134307218001547344767696688886D+01
        xs( 8) = 0.16819529586287943337377052611832D+01
        xs( 9) = 0.20825892222597619202965786955060D+01
        xs(10) = 0.25122684702872744975917815185793D+01
        xs(11) = 0.29683590200852641757372512396540D+01
        xs(12) = 0.34485964935331263584008728826303D+01
        xs(13) = 0.39510300360262040341915858560029D+01
        xs(14) = 0.44739833447049734595359437895556D+01
        xs(15) = 0.50160263855714911971772491515521D+01
        xs(16) = 0.55759547350278947770212081930075D+01
        xs(17) = 0.61527748984177592505559489213998D+01
        xs(18) = 0.67456952367817602902936427478455D+01
        xs(19) = 0.73541232569085426480680523680075D+01
        xs(20) = 0.79776712415453701662675900997699D+01
        xs(21) = 0.86161740139626786000958398542673D+01
        xs(22) = 0.92697260440106679528337322317972D+01
        xs(23) = 0.99387525276772453953024312690672D+01
        xs(24) = 0.10624147279392191615968329267075D+02
        xs(25) = 0.11327559685559009221571019552316D+02
        xs(26) = 0.12052069246823157422130894595962D+02
        xs(27) = 0.12805974520904411831475846590265D+02
        ws( 1) = 0.49074228801430832690096518089615D-01
        ws( 2) = 0.11209535058334321863229224735534D+00
        ws( 3) = 0.17075659162235002163054602075732D+00
        ws( 4) = 0.22387594459509403787799243695323D+00
        ws( 5) = 0.27134043124665776969298067175600D+00
        ws( 6) = 0.31360194419874281578535750480286D+00
        ws( 7) = 0.35131427414967471659842223989907D+00
        ws( 8) = 0.38513193665876360470542205082142D+00
        ws( 9) = 0.41563026035108603313652870793332D+00
        ws(10) = 0.44329082324292628945279269349263D+00
        ws(11) = 0.46851376650233426174829752509806D+00
        ws(12) = 0.49163667711974135529620886424892D+00
        ws(13) = 0.51295148813270794035213298821886D+00
        ws(14) = 0.53271713092416829886565684759174D+00
        ws(15) = 0.55116845814787944477956045755919D+00
        ws(16) = 0.56852281366356439250764344195350D+00
        ws(17) = 0.58498563098439259441866459814488D+00
        ws(18) = 0.60075624011677911211958302350069D+00
        ws(19) = 0.61603500652993169253924502719300D+00
        ws(20) = 0.63103325847582513864035373676221D+00
        ws(21) = 0.64598859516892074471169663560394D+00
        ws(22) = 0.66119143595309261499214772529262D+00
        ws(23) = 0.67703946298315084966195451500141D+00
        ws(24) = 0.69418186566241084068379135108443D+00
        ws(25) = 0.71406822819825323036193206844627D+00
        ws(26) = 0.74236033517771224862216371654250D+00
        ws(27) = 0.84871506903196106829893364778851D+00
        endif
        if( n .eq. 28 ) then
        err = .860604505469558D-12
        xs( 1) = 0.18510086248529028966566364357868D-01
        xs( 2) = 0.96652583740917675024880745917962D-01
        xs( 3) = 0.23394494378937477523669382718968D+00
        xs( 4) = 0.42571364723094098313649781695781D+00
        xs( 5) = 0.66666533293856638625402673425664D+00
        xs( 6) = 0.95163474914032713472722652356112D+00
        xs( 7) = 0.12759539313134238180412591631517D+01
        xs( 8) = 0.16355607649740437051630126048545D+01
        xs( 9) = 0.20269720927309148962012456834462D+01
        xs(10) = 0.24472069694297305368032571700851D+01
        xs(11) = 0.28937046184043818130076221575756D+01
        xs(12) = 0.33642549016477415232525304628951D+01
        xs(13) = 0.38569451413992257270563114016143D+01
        xs(14) = 0.43701212519307873515661713458233D+01
        xs(15) = 0.49023596303019074371091141287849D+01
        xs(16) = 0.54524467231301765920687661689238D+01
        xs(17) = 0.60193642903710755664583033310224D+01
        xs(18) = 0.66022795106874674099239772170470D+01
        xs(19) = 0.72005400525898735123747442752909D+01
        xs(20) = 0.78136751645107127091145973825211D+01
        xs(21) = 0.84414049794786378817451767402559D+01
        xs(22) = 0.90836620782737867697869951391745D+01
        xs(23) = 0.97406329430689597448266787712518D+01
        xs(24) = 0.10412834841950961211490995570932D+02
        xs(25) = 0.11101263322874076127787735945442D+02
        xs(26) = 0.11807700365959439851905469162555D+02
        xs(27) = 0.12535459147721894575043310352622D+02
        xs(28) = 0.13293546209596209074561865554954D+02
        ws( 1) = 0.47400032667128400895638757327289D-01
        ws( 2) = 0.10839266934705589396071462895562D+00
        ws( 3) = 0.16539314124340950072573722197365D+00
        ws( 4) = 0.21724969990643617416335529051400D+00
        ws( 5) = 0.26378695998769678288827734078202D+00
        ws( 6) = 0.30537238587875137492519237305382D+00
        ws( 7) = 0.34258960884654609328653145166246D+00
        ws( 8) = 0.37604491071260743456022896903486D+00
        ws( 9) = 0.40628232526724492200710844060719D+00
        ws(10) = 0.43376179687890119687563487540979D+00
        ws(11) = 0.45886602455238743546695675857224D+00
        ws(12) = 0.48191640095359202223288469411194D+00
        ws(13) = 0.50318885856287711444281531882720D+00
        ws(14) = 0.52292643127287424962397912986210D+00
        ws(15) = 0.54134831040981232345698796135443D+00
        ws(16) = 0.55865633443885925917363962412634D+00
        ws(17) = 0.57504008316750636489885211542491D+00
        ws(18) = 0.59068162962125491781262514372010D+00
        ws(19) = 0.60576087567693093291497872690833D+00
        ws(20) = 0.62046245906112438919822329181835D+00
        ws(21) = 0.63498566086437231683900280840090D+00
        ws(22) = 0.64955998780173821611216077193277D+00
        ws(23) = 0.66447253228548376444559983514119D+00
        ws(24) = 0.68012435412506358718530347040093D+00
        ws(25) = 0.69717938653004891943153847628862D+00
        ws(26) = 0.71712671737308966702925801857215D+00
        ws(27) = 0.74575198611696502652553265546951D+00
        ws(28) = 0.85324132455844831958746467379609D+00
        endif
        if( n .eq. 29 ) then
        err = .314421428614459D-12
        xs( 1) = 0.17888869247338360643693526166648D-01
        xs( 2) = 0.93462232162789724809573594111851D-01
        xs( 3) = 0.22642963725963574474651316365546D+00
        xs( 4) = 0.41249894138235374842727327134987D+00
        xs( 5) = 0.64674802308238120549324112154963D+00
        xs( 6) = 0.92431444262190260793860022925134D+00
        xs( 7) = 0.12407557592219723943211814577556D+01
        xs( 8) = 0.15921717659429965507265744632292D+01
        xs( 9) = 0.19751950835651729144662170952164D+01
        xs(10) = 0.23869280894485944501517831943446D+01
        xs(11) = 0.28248695029637111883283080143151D+01
        xs(12) = 0.32868496217984245504920466994121D+01
        xs(13) = 0.37709796155386870631272367748372D+01
        xs(14) = 0.42756140114286980719535289370727D+01
        xs(15) = 0.47993234459399181163796415939637D+01
        xs(16) = 0.53408747777849878340104923745067D+01
        xs(17) = 0.58992164796479980675056575976973D+01
        xs(18) = 0.64734681852200473805673644707580D+01
        xs(19) = 0.70629141174604193515564069994114D+01
        xs(20) = 0.76670008606558819532221131178367D+01
        xs(21) = 0.82853406999076632087808957616229D+01
        xs(22) = 0.89177227917974291505573337524510D+01
        xs(23) = 0.95641362137634985425318853593388D+01
        xs(24) = 0.10224812466990950308976923290061D+02
        xs(25) = 0.10900302806799201477555643930838D+02
        xs(26) = 0.11591625125612905416015034624001D+02
        xs(27) = 0.12300569030218605741531270082690D+02
        xs(28) = 0.13030430548380166241620454410761D+02
        xs(29) = 0.13790207582458127556126652280927D+02
        ws( 1) = 0.45815667986113986961789190233892D-01
        ws( 2) = 0.10488631057059453605731987397466D+00
        ws( 3) = 0.16031523817489642737888619850701D+00
        ws( 4) = 0.21099160304933067858775869931428D+00
        ws( 5) = 0.25669039170066199058891324493099D+00
        ws( 6) = 0.29770027593874142334894332041137D+00
        ws( 7) = 0.33453266501351582578069412298250D+00
        ws( 8) = 0.36773926778513659671147693308525D+00
        ws( 9) = 0.39782569473766531169573123369488D+00
        ws(10) = 0.42522452634907281935811034899867D+00
        ws(11) = 0.45029752508306322552801253606477D+00
        ws(12) = 0.47334852502364249211830215710896D+00
        ws(13) = 0.49463766395658433948847025576272D+00
        ws(14) = 0.51439322705250122726608355799114D+00
        ws(15) = 0.53282035933363435476797983579660D+00
        ws(16) = 0.55010722359287595768772586426933D+00
        ws(17) = 0.56642956360218888124991971346675D+00
        ws(18) = 0.58195459320652378109971323747356D+00
        ws(19) = 0.59684499142218803082473717230083D+00
        ws(20) = 0.61126372284521714097306976280638D+00
        ws(21) = 0.62538053922127512555218536048016D+00
        ws(22) = 0.63938151158603526182252034906118D+00
        ws(23) = 0.65348420515654676414365994601416D+00
        ws(24) = 0.66796450397134878881864047743611D+00
        ws(25) = 0.68321207305208812819813931437706D+00
        ws(26) = 0.69987708548004123471824948626557D+00
        ws(27) = 0.71942548475463171866045439399287D+00
        ws(28) = 0.74758441679828403112076113962958D+00
        ws(29) = 0.85451637132720802520110332173459D+00
        endif
        if( n .eq. 30 ) then
        err = .139204812089282D-12
        xs( 1) = 0.17237423922427315173161160109963D-01
        xs( 2) = 0.90116731894437740902598157227774D-01
        xs( 3) = 0.21855106840975001887876753858780D+00
        xs( 4) = 0.39865546665864257531636288270199D+00
        xs( 5) = 0.62590788319116328679638555615252D+00
        xs( 6) = 0.89577238373481791010601311561026D+00
        xs( 7) = 0.12040460193685188938943617624175D+01
        xs( 8) = 0.15469948205485512437484451525310D+01
        xs( 9) = 0.19213649584893494093620060221059D+01
        xs(10) = 0.23243373352071177960690621676652D+01
        xs(11) = 0.27534662768835340889030725808209D+01
        xs(12) = 0.32066218711580754414960435869538D+01
        xs(13) = 0.36819428711151232991348941953603D+01
        xs(14) = 0.41778007620785956763924028898419D+01
        xs(15) = 0.46927730949605722322550459007076D+01
        xs(16) = 0.52256237381200225603346693828854D+01
        xs(17) = 0.57752881499068582444502110405126D+01
        xs(18) = 0.63408624896098298156948980142550D+01
        xs(19) = 0.69215960776729144049319646746702D+01
        xs(20) = 0.75168873174955954577929131667008D+01
        xs(21) = 0.81262837573541108000556150038862D+01
        xs(22) = 0.87494876415850284497014632080970D+01
        xs(23) = 0.93863693168516736324615545373905D+01
        xs(24) = 0.10036992682473789538986715724852D+02
        xs(25) = 0.10701660529421779341285549101308D+02
        xs(26) = 0.11380995737773528154489016917592D+02
        xs(27) = 0.12076094587695437967500887020443D+02
        xs(28) = 0.12788845821067020891622985097481D+02
        xs(29) = 0.13522709254481326611358558854845D+02
        xs(30) = 0.14287130206748315723415878717495D+02
        ws( 1) = 0.44154196168627287289692287895650D-01
        ws( 2) = 0.10120981754025242487961617896526D+00
        ws( 3) = 0.15499567459302688831254016191879D+00
        ws( 4) = 0.20444910943252008871974155099880D+00
        ws( 5) = 0.24929412480475908242886573837920D+00
        ws( 6) = 0.28973234142148481006657756733014D+00
        ws( 7) = 0.32619257994034419858235049032470D+00
        ws( 8) = 0.35916356778583610930086951518821D+00
        ws( 9) = 0.38910792314354971039415043136633D+00
        ws(10) = 0.41643019304126398337277784904398D+00
        ws(11) = 0.44147348980570083102134126604344D+00
        ws(12) = 0.46452808453485330483194789372668D+00
        ws(13) = 0.48584293480006058316248544263651D+00
        ws(14) = 0.50563609682057632884359527759235D+00
        ws(15) = 0.52410278968482549885656069571880D+00
        ws(16) = 0.54142125343585858389041475041936D+00
        ws(17) = 0.55775705611510703819422035168611D+00
        ws(18) = 0.57326658006565472232446995148362D+00
        ws(19) = 0.58810033367600198929731994949298D+00
        ws(20) = 0.60240665607628968504802868383915D+00
        ws(21) = 0.61633640537480947533545436004321D+00
        ws(22) = 0.63004943077217630696592192767860D+00
        ws(23) = 0.64372418253308040723083938438720D+00
        ws(24) = 0.65757313758302733350641939758800D+00
        ws(25) = 0.67187020281266955640970798422380D+00
        ws(26) = 0.68700740859496496350229418855090D+00
        ws(27) = 0.70364423279190140337256976539571D+00
        ws(28) = 0.72326895584141228635269255992105D+00
        ws(29) = 0.75166519906266738461961424820438D+00
        ws(30) = 0.85917766039914306521731032237871D+00
        endif
        if( n .eq. 31 ) then
        err = .420881219168304D-13
        xs( 1) = 0.16722500553383128254158068330109D-01
        xs( 2) = 0.87467804061117264106221237890201D-01
        xs( 3) = 0.21229533130330408939739834786537D+00
        xs( 4) = 0.38762364327754947496074878114872D+00
        xs( 5) = 0.60923059704291674947494740648969D+00
        xs( 6) = 0.87282529396673668703950292545071D+00
        xs( 7) = 0.11743836385853889517443930827184D+01
        xs( 8) = 0.15102946085583943949982086251240D+01
        xs( 9) = 0.18773875806001574896713749712785D+01
        xs(10) = 0.22729009596727646052549133355542D+01
        xs(11) = 0.26944303792560529206446700307692D+01
        xs(12) = 0.31398763370438813293242268755092D+01
        xs(13) = 0.36073994303898706783307364373397D+01
        xs(14) = 0.40953850523488240426957660387971D+01
        xs(15) = 0.46024165814104172613764140951901D+01
        xs(16) = 0.51272552420276937499804492054173D+01
        xs(17) = 0.56688249289032070758261338557210D+01
        xs(18) = 0.62262007775975754558440643435147D+01
        xs(19) = 0.67986008190668348448641887555328D+01
        xs(20) = 0.73853805602141521580552534844195D+01
        xs(21) = 0.79860307869638193700631919140284D+01
        xs(22) = 0.86001793616895628588508515921650D+01
        xs(23) = 0.92275984145668682491588170499006D+01
        xs(24) = 0.98682193388098185447677099843114D+01
        xs(25) = 0.10522159849470182896305622333651D+02
        xs(26) = 0.11189771096383588991412709326874D+02
        xs(27) = 0.11871721140316693357728991814084D+02
        xs(28) = 0.12569151969182962717190526555213D+02
        xs(29) = 0.13284006991881346738592142456340D+02
        xs(30) = 0.14019841960145713243311407033298D+02
        xs(31) = 0.14786511876869501992384817973663D+02
        ws( 1) = 0.42840364956859173567373406439530D-01
        ws( 2) = 0.98292681063160032206270687616340D-01
        ws( 3) = 0.15075143524665765789751235316949D+00
        ws( 4) = 0.19919199569625925415410766005523D+00
        ws( 5) = 0.24330128943391481206618419148321D+00
        ws( 6) = 0.28321516855260537198208420484002D+00
        ws( 7) = 0.31929937479368854257130984661321D+00
        ws( 8) = 0.35199473960469313056362510025303D+00
        ws( 9) = 0.38173184636082083685151942422993D+00
        ws(10) = 0.40889507405813270360844365341766D+00
        ws(11) = 0.43381459722433466677349568938246D+00
        ws(12) = 0.45677133659613200354571980620076D+00
        ws(13) = 0.47800619107958211675848513730849D+00
        ws(14) = 0.49772928072061787357623936165754D+00
        ws(15) = 0.51612756483316234785051846958570D+00
        ws(16) = 0.53337059447204838078057654305419D+00
        ws(17) = 0.54961477398529842770064077246454D+00
        ws(18) = 0.56500668638483474491238722515319D+00
        ws(19) = 0.57968601987186971342016450317765D+00
        ws(20) = 0.59378856816010718203403041826536D+00
        ws(21) = 0.60744975342612018922484305514453D+00
        ws(22) = 0.62080919757818037912862742004102D+00
        ws(23) = 0.63401711880466631704459475425181D+00
        ws(24) = 0.64724391562857994624597623835965D+00
        ws(25) = 0.66069565631918703629711142307067D+00
        ws(26) = 0.67464172697584379924480961958445D+00
        ws(27) = 0.68947215398363774371259243287892D+00
        ws(28) = 0.70584845468667067015171441758347D+00
        ws(29) = 0.72526950417466907051179604350445D+00
        ws(30) = 0.75356667369707172942409481801815D+00
        ws(31) = 0.86157242831310733851573819770071D+00
        endif
        if( n .eq. 32 ) then
        err = .157657851912718D-13
        xs( 1) = 0.16247202811507392472328411968783D-01
        xs( 2) = 0.85016324486750065988239546084968D-01
        xs( 3) = 0.20648134290675624349023142360963D+00
        xs( 4) = 0.37731685442453451737415887918592D+00
        xs( 5) = 0.59356028915635806681110503689300D+00
        xs( 6) = 0.85114042433734213830532682412369D+00
        xs( 7) = 0.11462013267942642143231956553665D+01
        xs( 8) = 0.14752552098919995569831982748054D+01
        xs( 9) = 0.18352219721155497730554585048872D+01
        xs(10) = 0.22234088285841013393926081431427D+01
        xs(11) = 0.26374660336311942417457898556128D+01
        xs(12) = 0.30753386531965888242227722662394D+01
        xs(13) = 0.35352235088466294755651405571494D+01
        xs(14) = 0.40155341972630839867551840608385D+01
        xs(15) = 0.45148740149968081273086442738945D+01
        xs(16) = 0.50320154321110629465483759787234D+01
        xs(17) = 0.55658845866399963968290040194441D+01
        xs(18) = 0.61155495613912370420223406026239D+01
        xs(19) = 0.66802116402398294359707186800870D+01
        xs(20) = 0.72591991739738491653186810854007D+01
        xs(21) = 0.78519640753182660313744131683633D+01
        xs(22) = 0.84580813346158976878325869460926D+01
        xs(23) = 0.90772523732183831509933105065200D+01
        xs(24) = 0.97093136542006612595044436387779D+01
        xs(25) = 0.10354252970687701371452251622323D+02
        xs(26) = 0.11012237680031339063786886600432D+02
        xs(27) = 0.11683662882113590156467958036411D+02
        xs(28) = 0.12369235846283691696405646413976D+02
        xs(29) = 0.13070133796372747927421242064123D+02
        xs(30) = 0.13788331559957948370277186221908D+02
        xs(31) = 0.14527407326665902818389199421113D+02
        xs(32) = 0.15297158100721257100890022167256D+02
        ws( 1) = 0.41626861954276028057868125620843D-01
        ws( 2) = 0.95584365231393078587840618636834D-01
        ws( 3) = 0.14677874550499884018248226834771D+00
        ws( 4) = 0.19422306092329744181725921161817D+00
        ws( 5) = 0.23757995384994035479847995591959D+00
        ws( 6) = 0.27693526657810927758044836131580D+00
        ws( 7) = 0.31260471276355579712892476691717D+00
        ws( 8) = 0.34499012702966521313172218103314D+00
        ws( 9) = 0.37449538309065211324904819740740D+00
        ws(10) = 0.40148752921624005436198915230292D+00
        ws(11) = 0.42628511516008207803427622544215D+00
        ws(12) = 0.44916017611535047476517906435430D+00
        ws(13) = 0.47034558227694718008446689384954D+00
        ws(14) = 0.49004334894979558029000791645824D+00
        ws(15) = 0.50843195362692694182967119863173D+00
        ws(16) = 0.52567209709452973849950396463640D+00
        ws(17) = 0.54191103731147798514131916842411D+00
        ws(18) = 0.55728589516408594425915462926147D+00
        ws(19) = 0.57192638044189081432896123786446D+00
        ws(20) = 0.58595734948707576231975629270742D+00
        ws(21) = 0.59950156696495963219224399418885D+00
        ws(22) = 0.61268305541755700672998989373396D+00
        ws(23) = 0.62563152230953365562860901178205D+00
        ws(24) = 0.63848862503949609290270093080152D+00
        ws(25) = 0.65141742981514167697769149237078D+00
        ws(26) = 0.66461777543144713219781937031791D+00
        ws(27) = 0.67835376370392256132080729173651D+00
        ws(28) = 0.69301074582511009296850940583059D+00
        ws(29) = 0.70924499740470676150608367397292D+00
        ws(30) = 0.72854421001652384975059676206547D+00
        ws(31) = 0.75668946929361204130105542554251D+00
        ws(32) = 0.86412864024570796074705297650932D+00
        endif
        if( n .eq. 33 ) then
        err = .589729022804642D-14
        xs( 1) = 0.15777699384614370564964871895701D-01
        xs( 2) = 0.82589218648965329273197536624348D-01
        xs( 3) = 0.20070424631036624921872595918841D+00
        xs( 4) = 0.36703032669018407283011885640035D+00
        xs( 5) = 0.57784810179386792896380400549502D+00
        xs( 6) = 0.82929961916182161026719065268810D+00
        xs( 7) = 0.11176985087438789501239270279146D+01
        xs( 8) = 0.14396855489022971561410438714372D+01
        xs( 9) = 0.17922771434881456615195858825304D+01
        xs(10) = 0.21728540194009124469843498594224D+01
        xs(11) = 0.25791237578439482020195060848485D+01
        xs(12) = 0.30090768195251653747722194155512D+01
        xs(13) = 0.34609457427766760419620978616955D+01
        xs(14) = 0.39331711591314867847956151505993D+01
        xs(15) = 0.44243750756178269549038115209835D+01
        xs(16) = 0.49333404664651728561389629047005D+01
        xs(17) = 0.54589958331309054296481011095230D+01
        xs(18) = 0.60004035225235690267383822385800D+01
        xs(19) = 0.65567509286115607406774974053440D+01
        xs(20) = 0.71273440763555665059902963512834D+01
        xs(21) = 0.77116034326132021356831625828269D+01
        xs(22) = 0.83090621034454031484748521792679D+01
        xs(23) = 0.89193668988242038710059691935627D+01
        xs(24) = 0.95422831458637048675856596469412D+01
        xs(25) = 0.10177704731380914135217308962349D+02
        xs(26) = 0.10825671876487329154081917961857D+02
        xs(27) = 0.11486401051797081351209494715613D+02
        xs(28) = 0.12160335307351761318523970820136D+02
        xs(29) = 0.12848231936703178939583699662127D+02
        xs(30) = 0.13551326197041614141165821207554D+02
        xs(31) = 0.14271673057805137009569741719299D+02
        xs(32) = 0.15013002832263880282154214304183D+02
        xs(33) = 0.15785642930847856187793278203935D+02
        ws( 1) = 0.40427481524073857942659375712361D-01
        ws( 2) = 0.92895592503749090633767409607839D-01
        ws( 3) = 0.14280751789271262504090115198495D+00
        ws( 4) = 0.18921662850940043478153842909095D+00
        ws( 5) = 0.23177081296731062429850464762520D+00
        ws( 6) = 0.27051536131579752059780374595892D+00
        ws( 7) = 0.30572185675557717101844180873164D+00
        ws( 8) = 0.33775522534512105938467643581896D+00
        ws( 9) = 0.36699208775882907354006617012377D+00
        ws(10) = 0.39378034861045167353221887531620D+00
        ws(11) = 0.41842489265721339455206930687879D+00
        ws(12) = 0.44118722055034145963737027421845D+00
        ws(13) = 0.46229117383683087445230188939450D+00
        ws(14) = 0.48193033013261874608991769725284D+00
        ws(15) = 0.50027491959287637633712860413435D+00
        ws(16) = 0.51747747161759805906791573052398D+00
        ws(17) = 0.53367713166408824088049204851425D+00
        ws(18) = 0.54900291937178413380277912117863D+00
        ws(19) = 0.56357630052586585051655873141276D+00
        ws(20) = 0.57751343736987713065619479379638D+00
        ws(21) = 0.59092744412173863833574320874128D+00
        ws(22) = 0.60393095694279528150404060548575D+00
        ws(23) = 0.61663936453116080230858310120407D+00
        ws(24) = 0.62917517505021360235383942159051D+00
        ws(25) = 0.64167428783331803969040911915402D+00
        ws(26) = 0.65429556041745167727871682766000D+00
        ws(27) = 0.66723646228592608873397665287670D+00
        ws(28) = 0.68076121579834287731061371633143D+00
        ws(29) = 0.69525921648204999350187201122056D+00
        ws(30) = 0.71139807928256640978257354284508D+00
        ws(31) = 0.73069387204391731913620001702317D+00
        ws(32) = 0.75901961887788876792819565092189D+00
        ws(33) = 0.86732559238352766948030021837907D+00
        endif
        if( n .eq. 34 ) then
        err = .217974539314821D-14
        xs( 1) = 0.15314003871998622601625986492917D-01
        xs( 2) = 0.80191998527231180763583214389547D-01
        xs( 3) = 0.19499898337791062493857333464579D+00
        xs( 4) = 0.35687742762508387636858578174469D+00
        xs( 5) = 0.56235865979650924859399472280201D+00
        xs( 6) = 0.80780986740743658165811001195563D+00
        xs( 7) = 0.10897274660220645899750501004486D+01
        xs( 8) = 0.14048924784271650109490566182256D+01
        xs( 9) = 0.17504262210541271361561574738927D+01
        xs(10) = 0.21237875625791888143356609884800D+01
        xs(11) = 0.25227426323801324025610447343006D+01
        xs(12) = 0.29453259312050449246522657150455D+01
        xs(13) = 0.33898027467956008581454442775172D+01
        xs(14) = 0.38546370390894525102340376134651D+01
        xs(15) = 0.43384657540362597414981862791783D+01
        xs(16) = 0.48400789869394173385190300177597D+01
        xs(17) = 0.53584048774719227569748240981491D+01
        xs(18) = 0.58924981176951451475710654306050D+01
        xs(19) = 0.64415311954733232424661562815423D+01
        xs(20) = 0.70047878075301590511548367080431D+01
        xs(21) = 0.75816581776348913348570433880441D+01
        xs(22) = 0.81716362843133592986083469125224D+01
        xs(23) = 0.87743192548151666672760321683837D+01
        xs(24) = 0.93894094593912539510663372455212D+01
        xs(25) = 0.10016720210922859095775895387303D+02
        xs(26) = 0.10656186554987311132356272596552D+02
        xs(27) = 0.11307883640525912232778197089463D+02
        xs(28) = 0.11972057044189154442991884145695D+02
        xs(29) = 0.12649173240658184659570263832330D+02
        xs(30) = 0.13340006941973277078597248637854D+02
        xs(31) = 0.14045803496960237581134830716442D+02
        xs(32) = 0.14768616546271264018652672001334D+02
        xs(33) = 0.15512148536883648273653951506724D+02
        xs(34) = 0.16286628692102960050167964040953D+02
        ws( 1) = 0.39242907165731476386614241794846D-01
        ws( 2) = 0.90239899602484204093314599307937D-01
        ws( 3) = 0.13888739219811274530246970911715D+00
        ws( 4) = 0.18428395349725600858597235516054D+00
        ws( 5) = 0.22606818264058442809503164073173D+00
        ws( 6) = 0.26424781588341646988929585168327D+00
        ws( 7) = 0.29905006000042569437210928359433D+00
        ws( 8) = 0.33080030343352067782363669182720D+00
        ws( 9) = 0.35984420851736868759762547282447D+00
        ws(10) = 0.38650683311878456774839951697968D+00
        ws(11) = 0.41107635859571585417194135495227D+00
        ws(12) = 0.43380165722970867956928763439153D+00
        ws(13) = 0.45489639361728576932805125821497D+00
        ws(14) = 0.47454534304318027471364525241669D+00
        ws(15) = 0.49291068506696870417378693676618D+00
        ws(16) = 0.51013732677360064511968285432325D+00
        ws(17) = 0.52635704757363514100189314350456D+00
        ws(18) = 0.54169162335414287808049695234860D+00
        ws(19) = 0.55625522638014728616751479490525D+00
        ws(20) = 0.57015641519690288386519228099346D+00
        ws(21) = 0.58349999953001287651337782002254D+00
        ws(22) = 0.59638903586162518538361326900488D+00
        ws(23) = 0.60892720971828979575972973135685D+00
        ws(24) = 0.62122191494643314362195389931709D+00
        ws(25) = 0.63338848224485655453361722508387D+00
        ws(26) = 0.64555630807034890844309492526598D+00
        ws(27) = 0.65787825525975384617313637306041D+00
        ws(28) = 0.67054608158596903404703573693434D+00
        ws(29) = 0.68381820926280903966797765507895D+00
        ws(30) = 0.69807736693669174037203856757881D+00
        ws(31) = 0.71398153139465702545508619061272D+00
        ws(32) = 0.73302672837754524568762221588136D+00
        ws(33) = 0.76102142441680035427011775335410D+00
        ws(34) = 0.86871313800642501003143382880217D+00
        endif
        if( n .eq. 35 ) then
        err = .787484596790283D-15
        xs( 1) = 0.14844101349127957824111406750697D-01
        xs( 2) = 0.77762146493058737956101424343794D-01
        xs( 3) = 0.18921440254749720887090216590406D+00
        xs( 4) = 0.34658100943459745212513487553585D+00
        xs( 5) = 0.54664855086950591226436313440244D+00
        xs( 6) = 0.78601401383937036003920240718863D+00
        xs( 7) = 0.10613593224031348415228678095785D+01
        xs( 8) = 0.13696054239763947572830903566438D+01
        xs( 9) = 0.17079752811520468405646089192969D+01
        xs(10) = 0.20740006320346128265514386801766D+01
        xs(11) = 0.24655001595850266533919700176288D+01
        xs(12) = 0.28805469217075839388579588894457D+01
        xs(13) = 0.33174349419734250154521657848611D+01
        xs(14) = 0.37746495640462401625875843958611D+01
        xs(15) = 0.42508430608737963457615730447852D+01
        xs(16) = 0.47448153808978042195471399174907D+01
        xs(17) = 0.52554992428359928779864856630698D+01
        xs(18) = 0.57819486539478810340229109276206D+01
        xs(19) = 0.63233300558683616400510849914660D+01
        xs(20) = 0.68789155332033051183802170926554D+01
        xs(21) = 0.74480777659670033884627029435682D+01
        xs(22) = 0.80302866334482778734243224623952D+01
        xs(23) = 0.86251075843526458689276882695377D+01
        xs(24) = 0.92322020985204471867090016205279D+01
        xs(25) = 0.98513308201900279351046918311385D+01
        xs(26) = 0.10482360308011180048689617116982D+02
        xs(27) = 0.11125274937740282665008140598310D+02
        xs(28) = 0.11780196530626208817356667403527D+02
        xs(29) = 0.12447416233508407987115078124821D+02
        xs(30) = 0.13127447150991731882508309312389D+02
        xs(31) = 0.13821115139711341501420927408199D+02
        xs(32) = 0.14529727736543587509363020615155D+02
        xs(33) = 0.15255427309944169278756458858653D+02
        xs(34) = 0.16002083943546385715999246127845D+02
        xs(35) = 0.16780458646053866500378687272887D+02
        ws( 1) = 0.38042405222082337629436502603670D-01
        ws( 2) = 0.87547384434349431897540882489330D-01
        ws( 3) = 0.13491117623448497335564218978680D+00
        ws( 4) = 0.17927976065130558767815422522494D+00
        ws( 5) = 0.22028358812246687456957914798590D+00
        ws( 6) = 0.25789183757679212764951796036884D+00
        ws( 7) = 0.29228464198129360378412768648402D+00
        ws( 8) = 0.32374467526246608519187317380944D+00
        ws( 9) = 0.35258406748276167154929370739607D+00
        ws(10) = 0.37910364671870910375947949057853D+00
        ws(11) = 0.40357481827457271493124762405398D+00
        ws(12) = 0.42623487362382349580093619757710D+00
        ws(13) = 0.44728913005819811239153871333779D+00
        ws(14) = 0.46691581172916624926128059591709D+00
        ws(15) = 0.48527141945261928837672701256781D+00
        ws(16) = 0.50249552981400257915013892118507D+00
        ws(17) = 0.51871467482842630199952154706314D+00
        ws(18) = 0.53404533344269783700578131729553D+00
        ws(19) = 0.54859623508330759060714741527652D+00
        ws(20) = 0.56247022313848152904372428970967D+00
        ws(21) = 0.57576591688389975444136894383562D+00
        ws(22) = 0.58857938658937757007395609122217D+00
        ws(23) = 0.60100604542645530077423707090146D+00
        ws(24) = 0.61314298231776675189675661840120D+00
        ws(25) = 0.62509203211276214806743759942275D+00
        ws(26) = 0.63696403749314464398845445292671D+00
        ws(27) = 0.64888507318483056657350218325453D+00
        ws(28) = 0.66100604893163484953660167974872D+00
        ws(29) = 0.67351854130890626882491142582549D+00
        ws(30) = 0.68668336769024178627740655880535D+00
        ws(31) = 0.70088989097666154467975263996879D+00
        ws(32) = 0.71681066928916544273400999221216D+00
        ws(33) = 0.73597423757662107035499593351906D+00
        ws(34) = 0.76428141533693932795399317636300D+00
        ws(35) = 0.87287945071543764335903668511518D+00
        endif
        if( n .eq. 36 ) then
        err = .296350821373720D-15
        xs( 1) = 0.14468085088959541791651151310658D-01
        xs( 2) = 0.75815699521012530156654504110898D-01
        xs( 3) = 0.18457236654585322789159756998785D+00
        xs( 4) = 0.33829909306359023001202671821781D+00
        xs( 5) = 0.53397796283513897541266391936283D+00
        xs( 6) = 0.76838296575830492615905359565677D+00
        xs( 7) = 0.10383394943319615608291695432128D+01
        xs( 8) = 0.13408769994648921529789266585596D+01
        xs( 9) = 0.16732974941834803690027696741933D+01
        xs(10) = 0.20331897308157735394968618120090D+01
        xs(11) = 0.24184140216836746554597949162458D+01
        xs(12) = 0.28270745921829690776304960979365D+01
        xs(13) = 0.32574893267888718089505447749576D+01
        xs(14) = 0.37081618631166854950848040628084D+01
        xs(15) = 0.41777579727368521652047475537181D+01
        xs(16) = 0.46650865084148779453556967609144D+01
        xs(17) = 0.51690844181722575894590427558579D+01
        xs(18) = 0.56888050731941587812886605954113D+01
        xs(19) = 0.62234091868477646494299468072027D+01
        xs(20) = 0.67721577607011111839236502658914D+01
        xs(21) = 0.73344066904853942762329909410460D+01
        xs(22) = 0.79096028572336765210165264441715D+01
        xs(23) = 0.84972817047083124080963585156370D+01
        xs(24) = 0.90970664725485634181633594317067D+01
        xs(25) = 0.97086694388722378807573529826413D+01
        xs(26) = 0.10331895765127546037459052554152D+02
        xs(27) = 0.10966650893048086500798798480791D+02
        xs(28) = 0.11612953030741890395202528737468D+02
        xs(29) = 0.12270953301048405328055498900476D+02
        xs(30) = 0.12940968078689712703424764902925D+02
        xs(31) = 0.13623532018702448992299255267039D+02
        xs(32) = 0.14319489193982562688844743671717D+02
        xs(33) = 0.15030162349852864539701288942748D+02
        xs(34) = 0.15757706609078346224049634142948D+02
        xs(35) = 0.16506006317001986079471209369228D+02
        xs(36) = 0.17285933904955833535970624698593D+02
        ws( 1) = 0.37081514325228580524471571715324D-01
        ws( 2) = 0.85387701974708019925353462075656D-01
        ws( 3) = 0.13171066535759816766000031488959D+00
        ws( 4) = 0.17523365254825825378149029998052D+00
        ws( 5) = 0.21558209060376691090474694436633D+00
        ws( 6) = 0.25269633284119669255242328566046D+00
        ws( 7) = 0.28672056667552547275932841986538D+00
        ws( 8) = 0.31790460313740528217200908249161D+00
        ws( 9) = 0.34653480424528918034587614495356D+00
        ws(10) = 0.37289353774473519155259559898283D+00
        ws(11) = 0.39723959682598525243133038973891D+00
        ws(12) = 0.41980166076861611157282393978096D+00
        ws(13) = 0.44077880869198206649126733648654D+00
        ws(14) = 0.46034420871458950056802418274740D+00
        ws(15) = 0.47864973385320413885768237772413D+00
        ws(16) = 0.49583035494091089633651862319580D+00
        ws(17) = 0.51200784309943735174348138820336D+00
        ws(18) = 0.52729370253561556174076639717752D+00
        ws(19) = 0.54179144785933035964754829635461D+00
        ws(20) = 0.55559841429218815571364413929716D+00
        ws(21) = 0.56880729956259599767979189952646D+00
        ws(22) = 0.58150762151888742196627721688831D+00
        ws(23) = 0.59378726076904720449141678493987D+00
        ws(24) = 0.60573425962478112585814353292559D+00
        ws(25) = 0.61743908111182610509895711362700D+00
        ws(26) = 0.62899761303700010066727968424014D+00
        ws(27) = 0.64051536599987349586389500219787D+00
        ws(28) = 0.65211363370576466733609796738100D+00
        ws(29) = 0.66393903095981762546415867784110D+00
        ws(30) = 0.67617925666273779161347449076025D+00
        ws(31) = 0.68909158256518703070764498836244D+00
        ws(32) = 0.70306200021521568812686550491849D+00
        ws(33) = 0.71875938616375905510312626754376D+00
        ws(34) = 0.73770637346435075428573302670642D+00
        ws(35) = 0.76579148909082903557216268614513D+00
        ws(36) = 0.87430720690221498660714690884105D+00
        endif
        if( n .eq. 37 ) then
        err = .122900014726219D-15
        xs( 1) = 0.14099219849311940782537395623489D-01
        xs( 2) = 0.73902702857543476180423871134632D-01
        xs( 3) = 0.17999590434689072828628642478460D+00
        xs( 4) = 0.33010136898962559275978162904415D+00
        xs( 5) = 0.52137893538742866074318152995799D+00
        xs( 6) = 0.75076734264232374882635031764586D+00
        xs( 7) = 0.10152295693062971553130324631078D+01
        xs( 8) = 0.13119031298154137244799701935652D+01
        xs( 9) = 0.16381725825679369303973607000713D+01
        xs(10) = 0.19916897258355499530306530914075D+01
        xs(11) = 0.23703640195619358900519528694451D+01
        xs(12) = 0.27723391674994241352951745730663D+01
        xs(13) = 0.31959656058074924867045389339032D+01
        xs(14) = 0.36397741167293447306671844841344D+01
        xs(15) = 0.41024528799195040425643525338883D+01
        xs(16) = 0.45828285885560388981348184714143D+01
        xs(17) = 0.50798513926450901216523176031699D+01
        xs(18) = 0.55925830795581713856523066988863D+01
        xs(19) = 0.61201878444875026590374065660484D+01
        xs(20) = 0.66619250962132001331652784395211D+01
        xs(21) = 0.72171438964283830870950551638628D+01
        xs(22) = 0.77852787946765711935286624511812D+01
        xs(23) = 0.83658469753272625203971482630245D+01
        xs(24) = 0.89584467769397273695817247809026D+01
        xs(25) = 0.95627577900468000916857732478545D+01
        xs(26) = 0.10178542910095700167210250906937D+02
        xs(27) = 0.10805652955286093981555243977734D+02
        xs(28) = 0.11444034816299888997460957884764D+02
        xs(29) = 0.12093744698430638024251694829393D+02
        xs(30) = 0.12754969067285726806630237890431D+02
        xs(31) = 0.13428057891923762924593226885658D+02
        xs(32) = 0.14113578816399179730230885600512D+02
        xs(33) = 0.14812409947402255732328767622452D+02
        xs(34) = 0.15525911922339286230723400484050D+02
        xs(35) = 0.16256287586841577917529172149615D+02
        xs(36) = 0.17007495235412256610857774164925D+02
        xs(37) = 0.17790547950237357684091900530585D+02
        ws( 1) = 0.36138471602071196258837252789932D-01
        ws( 2) = 0.83260278817829494117659195696360D-01
        ws( 3) = 0.12853880206722109700910360854198D+00
        ws( 4) = 0.17119311122428729513873770796802D+00
        ws( 5) = 0.21084770951622670490549296258886D+00
        ws( 6) = 0.24742047861531151257058482156283D+00
        ws( 7) = 0.28102575037782735442211219745635D+00
        ws( 8) = 0.31188518189903266588496163920652D+00
        ws( 9) = 0.34026255385769740892851987844523D+00
        ws(10) = 0.36642372209767325281036830658470D+00
        ws(11) = 0.39061595293415737285995964776662D+00
        ws(12) = 0.41305986043128669863042085178936D+00
        ws(13) = 0.43394853021164670565250913934672D+00
        ws(14) = 0.45345016887694678056039118543413D+00
        ws(15) = 0.47171205579474734217485562186367D+00
        ws(16) = 0.48886458187354974771788936699627D+00
        ws(17) = 0.50502481001745528895639534126503D+00
        ws(18) = 0.52029938195248765540043151662431D+00
        ws(19) = 0.53478680815284364464176077044473D+00
        ws(20) = 0.54857927480504604504260951804770D+00
        ws(21) = 0.56176413157843083622200090269981D+00
        ws(22) = 0.57442522081068274160809106839650D+00
        ws(23) = 0.58664419618062538366098443544186D+00
        ws(24) = 0.59850197272343907112328104110948D+00
        ws(25) = 0.61008046155694235167319355135262D+00
        ws(26) = 0.62146478351503732315847618964815D+00
        ws(27) = 0.63274624387153060991736132219448D+00
        ws(28) = 0.64402652010781129736784686105646D+00
        ws(29) = 0.65542384060685771682986280158015D+00
        ws(30) = 0.66708258866166831744179385196473D+00
        ws(31) = 0.67918921468854103811872021515769D+00
        ws(32) = 0.69200102269975821927941096635560D+00
        ws(33) = 0.70590587514841376913931749672326D+00
        ws(34) = 0.72157731994715081566807801586985D+00
        ws(35) = 0.74054672991375923030835741865420D+00
        ws(36) = 0.76871270917469603883158724618514D+00
        ws(37) = 0.87723920653248096461081215944343D+00
        endif
        if( n .eq. 38 ) then
        err = .404990629739698D-16
        xs( 1) = 0.13748299473436488890453415609077D-01
        xs( 2) = 0.72080462085364601179234571468869D-01
        xs( 3) = 0.17562756104766366816540540828322D+00
        xs( 4) = 0.32225638377642913397267486551469D+00
        xs( 5) = 0.50928868147914996214181860479618D+00
        xs( 6) = 0.73381696979760129761391844975876D+00
        xs( 7) = 0.99293618762128432858752726647024D+00
        xs( 8) = 0.12838903449609748759290750954181D+01
        xs( 9) = 0.16041472384767430637663028801188D+01
        xs(10) = 0.19514231073472549942587298484754D+01
        xs(11) = 0.23236776040133637514869794634145D+01
        xs(12) = 0.27190940590553230406441637409117D+01
        xs(13) = 0.31360545610738089718863932195086D+01
        xs(14) = 0.35731151974347431673487594950773D+01
        xs(15) = 0.40289840197910165716343076035295D+01
        xs(16) = 0.45025026165751502871570388559227D+01
        xs(17) = 0.49926312586723194039481137698679D+01
        xs(18) = 0.54984371637327193291973940719085D+01
        xs(19) = 0.60190853026785184094086838836853D+01
        xs(20) = 0.65538312135741642656597136451352D+01
        xs(21) = 0.71020154050189598739984502465416D+01
        xs(22) = 0.76630590713010473007142389733923D+01
        xs(23) = 0.82364609787693310735341522440655D+01
        xs(24) = 0.88217955096522915584029016302875D+01
        xs(25) = 0.94187119707208855019449961333694D+01
        xs(26) = 0.10026935403702912325103549553444D+02
        xs(27) = 0.10646269295211017828935632056726D+02
        xs(28) = 0.11276600812560191513012868909169D+02
        xs(29) = 0.11917909549642828073107668293347D+02
        xs(30) = 0.12570281366590975037918111890601D+02
        xs(31) = 0.13233929972117699081256382919499D+02
        xs(32) = 0.13909230911381156437055235812561D+02
        xs(33) = 0.14596776729951440328173732280798D+02
        xs(34) = 0.15297471318695943209441824725074D+02
        xs(35) = 0.16012704949425090381486606563892D+02
        xs(36) = 0.16744721259399225522094567256501D+02
        xs(37) = 0.17497557910007742152766976403668D+02
        xs(38) = 0.18282548109198431108408010163492D+02
        ws( 1) = 0.35241029173147438064803963176696D-01
        ws( 2) = 0.81230669064001853699823251929035D-01
        ws( 3) = 0.12550086028004111729771518972872D+00
        ws( 4) = 0.16730519093276615281844928230004D+00
        ws( 5) = 0.20627094343918964323093296782322D+00
        ws( 6) = 0.24229904991396611739419011584097D+00
        ws( 7) = 0.27547886503938749223223897520901D+00
        ws( 8) = 0.30600705461438283134167339591243D+00
        ws( 9) = 0.33412622494033186796406184256074D+00
        ws(10) = 0.36008580587195259188889748649548D+00
        ws(11) = 0.38412083671224967278938269558016D+00
        ws(12) = 0.40644283979422784527234421576980D+00
        ws(13) = 0.42723788118064925616099735298598D+00
        ws(14) = 0.44666837367038782684893726120803D+00
        ws(15) = 0.46487644882323989969060059381951D+00
        ws(16) = 0.48198765072000807636186265640087D+00
        ws(17) = 0.49811432167349871301409670014322D+00
        ws(18) = 0.51335843570103236957986077059844D+00
        ws(19) = 0.52781385781924567415536544773168D+00
        ws(20) = 0.54156811982322649739098086056185D+00
        ws(21) = 0.55470384731205102761816506292810D+00
        ws(22) = 0.56729997916783919240922979881722D+00
        ws(23) = 0.57943291155342157401640594214470D+00
        ws(24) = 0.59117768877350387115875813407185D+00
        ws(25) = 0.60260936332484827974590390735734D+00
        ws(26) = 0.61380466562248055782467887653899D+00
        ws(27) = 0.62484417061595414627778386739249D+00
        ws(28) = 0.63581524156338200098019659757146D+00
        ws(29) = 0.64681620592041619773742006743010D+00
        ws(30) = 0.65796255050713191262937346392969D+00
        ws(31) = 0.66939659027896973193630920366752D+00
        ws(32) = 0.68130353521185461775240253204259D+00
        ws(33) = 0.69394061175325416287777147657578D+00
        ws(34) = 0.70769749274351704463884793349244D+00
        ws(35) = 0.72325309280924838950937353573806D+00
        ws(36) = 0.74215243301061022014357767908453D+00
        ws(37) = 0.77034095774362866002017577334521D+00
        ws(38) = 0.87933382265471083330206485590455D+00
        endif
        if( n .eq. 39 ) then
        err = .147252112702453D-16
        xs( 1) = 0.13385741445429439401100464763373D-01
        xs( 2) = 0.70197811410888190521671107098224D-01
        xs( 3) = 0.17111498944106279093922985161588D+00
        xs( 4) = 0.31415552234415477222207754882939D+00
        xs( 5) = 0.49681364026883989608891581720194D+00
        xs( 6) = 0.71634839570640662352996959298874D+00
        xs( 7) = 0.96999994996047590211254016953835D+00
        xs( 8) = 0.12551310104843514072113370271944D+01
        xs( 9) = 0.15693027322232791309490014469090D+01
        xs(10) = 0.19103034188421791597790903778074D+01
        xs(11) = 0.22761481080584678580701069196735D+01
        xs(12) = 0.26650628874500567742269633173213D+01
        xs(13) = 0.30754630779070161019521719340593D+01
        xs(14) = 0.35059306393671147918398253800984D+01
        xs(15) = 0.39551935365580827908217005772545D+01
        xs(16) = 0.44221081606610992540736705625658D+01
        xs(17) = 0.49056449649174310544465796065774D+01
        xs(18) = 0.54048770041708111073640547979063D+01
        xs(19) = 0.59189708944298079783744796008542D+01
        xs(20) = 0.64471797042745014586938854711717D+01
        xs(21) = 0.69888373713687734652721589471653D+01
        xs(22) = 0.75433543518713329744484626354267D+01
        xs(23) = 0.81102143292002224507661813558681D+01
        xs(24) = 0.86889719194273616420929673863262D+01
        xs(25) = 0.92792514132311414239783630286504D+01
        xs(26) = 0.98807466965135368250047029815446D+01
        xs(27) = 0.10493222607786113884393852083700D+02
        xs(28) = 0.11116518142414209018172710079751D+02
        xs(29) = 0.11750552136982517307324060387533D+02
        xs(30) = 0.12395332421629520595804293557874D+02
        xs(31) = 0.13050970025684431651557477318911D+02
        xs(32) = 0.13717701084963297566295504281954D+02
        xs(33) = 0.14395921108838055124025630891466D+02
        xs(34) = 0.15086240361749139989582945694258D+02
        xs(35) = 0.15789578314784656423861284792168D+02
        xs(36) = 0.16507338517735656398592910245565D+02
        xs(37) = 0.17241774521594116224061397961290D+02
        xs(38) = 0.17996924665426099013702090204431D+02
        xs(39) = 0.18784083631412190454462392634304D+02
        ws( 1) = 0.34313821785183041011916780731837D-01
        ws( 2) = 0.79133866887085752463176798558758D-01
        ws( 3) = 0.12236367998689283963907410297498D+00
        ws( 4) = 0.16329499483924597062123880137704D+00
        ws( 5) = 0.20156078775484469452105838807568D+00
        ws( 6) = 0.23704642029151444420583833195161D+00
        ws( 7) = 0.26981592191612705471030956467580D+00
        ws( 8) = 0.30003929104117989493405787501335D+00
        ws( 9) = 0.32793557628570135194294402458734D+00
        ws(10) = 0.35373525261803022400181850874513D+00
        ws(11) = 0.37765884961472772881096591944125D+00
        ws(12) = 0.39990697868318649369056516867363D+00
        ws(13) = 0.42065740845845696392991695171372D+00
        ws(14) = 0.44006600174957337728364134280775D+00
        ws(15) = 0.45826942971799262139809173803986D+00
        ws(16) = 0.47538841715260304285338815018040D+00
        ws(17) = 0.49153084998055818535773942133141D+00
        ws(18) = 0.50679444869099131262206535672020D+00
        ws(19) = 0.52126893561899767477020685939780D+00
        ws(20) = 0.53503774578161812213595304844943D+00
        ws(21) = 0.54817938580854975132742833409587D+00
        ws(22) = 0.56076856077244545633333990713590D+00
        ws(23) = 0.57287718453285982478117905614160D+00
        ws(24) = 0.58457537962990140843867065304765D+00
        ws(25) = 0.59593256730386956413403255501339D+00
        ws(26) = 0.60701875379065206671708349371945D+00
        ws(27) = 0.61790614237719001995322418657761D+00
        ws(28) = 0.62867125147995686110732106867674D+00
        ws(29) = 0.63939781486358438415842064715343D+00
        ws(30) = 0.65018091643142760853298912457994D+00
        ws(31) = 0.66113314462817176655524001827868D+00
        ws(32) = 0.67239421709836160522097504136978D+00
        ws(33) = 0.68414698966832986520953997269117D+00
        ws(34) = 0.69664647082572367025285582356713D+00
        ws(35) = 0.71027996381990729641177885367515D+00
        ws(36) = 0.72572284594504659519474937679726D+00
        ws(37) = 0.74451101994874655442656900259294D+00
        ws(38) = 0.77255100845059614407180615824628D+00
        ws(39) = 0.88116325124907855647574874729816D+00
        endif
        if( n .eq. 40 ) then
        err = .545680949358478D-17
        xs( 1) = 0.13036589312514384648982452225792D-01
        xs( 2) = 0.68384298334123865291206255513976D-01
        xs( 3) = 0.16676635235862051605728762537339D+00
        xs( 4) = 0.30634515530243323191684817187503D+00
        xs( 5) = 0.48477983993736067764571153073528D+00
        xs( 6) = 0.69948909441231419777533059683732D+00
        xs( 7) = 0.94785205250832871402592473708306D+00
        xs( 8) = 0.12273440849654506758791127239409D+01
        xs( 9) = 0.15356135211462493077339616412410D+01
        xs(10) = 0.18705142974433098736303703040685D+01
        xs(11) = 0.22301103105350638087945318545530D+01
        xs(12) = 0.26126640868809259196718742293794D+01
        xs(13) = 0.30166184147185152236903260298541D+01
        xs(14) = 0.34405762223641546788166913994371D+01
        xs(15) = 0.38832815687512922484978623068547D+01
        xs(16) = 0.43436030402934203616574288296556D+01
        xs(17) = 0.48205199109573095211000728012138D+01
        xs(18) = 0.53131109214073668611106290862750D+01
        xs(19) = 0.58205453137210569416479071231759D+01
        xs(20) = 0.63420757085959418340748645083022D+01
        xs(21) = 0.68770324548215049895419191461552D+01
        xs(22) = 0.74248191656328741609012646948830D+01
        xs(23) = 0.79849092535179787656377827803872D+01
        xs(24) = 0.85568433693826388417555371924459D+01
        xs(25) = 0.91402277396055173195375231732994D+01
        xs(26) = 0.97347334786651884421755349865208D+01
        xs(27) = 0.10340097044365737907489253653654D+02
        xs(28) = 0.10956122111242712938204363686211D+02
        xs(29) = 0.11582683287079207736834243545823D+02
        xs(30) = 0.12219732322571693316943553384904D+02
        xs(31) = 0.12867307826019162699048425117833D+02
        xs(32) = 0.13525550107642727389570586808436D+02
        xs(33) = 0.14194723871197921636731744462564D+02
        xs(34) = 0.14875253541643325039797745424841D+02
        xs(35) = 0.15567780249583974688152498326357D+02
        xs(36) = 0.16273259028327253746221673315961D+02
        xs(37) = 0.16993139148057250687247653187840D+02
        xs(38) = 0.17729743494511581601902762217008D+02
        xs(39) = 0.18487250824087967792981694972139D+02
        xs(40) = 0.19277452030264118703237544849295D+02
        ws( 1) = 0.33420840767350215129357144162923D-01
        ws( 2) = 0.77113435564412234257896774929373D-01
        ws( 3) = 0.11933846970152330324107600932582D+00
        ws( 4) = 0.15942467041041266192004270401272D+00
        ws( 5) = 0.19701110517159940405522192000535D+00
        ws( 6) = 0.23196834822017287462615505044757D+00
        ws( 7) = 0.26433555688600863702199833617561D+00
        ws( 8) = 0.29425605777059892676032385669113D+00
        ws( 9) = 0.32192509497622236151072315046657D+00
        ws(10) = 0.34755398284702809999264503236981D+00
        ws(11) = 0.37134878272490722945743450436634D+00
        ws(12) = 0.39349957651727964525270964189027D+00
        ws(13) = 0.41417655353304910918655602394270D+00
        ws(14) = 0.43353001564625053483774440430008D+00
        ws(15) = 0.45169233841054963569200007665320D+00
        ws(16) = 0.46878066975205045192266368105496D+00
        ws(17) = 0.48489967675626006337379028402383D+00
        ws(18) = 0.50014400230663231378332921071595D+00
        ws(19) = 0.51460031259594084988270262311354D+00
        ws(20) = 0.52834894256601244422706676603583D+00
        ws(21) = 0.54146520962335001006175116327909D+00
        ws(22) = 0.55402049008108730941654776642760D+00
        ws(23) = 0.56608315540612905898493049234796D+00
        ws(24) = 0.57771945923429193216022489277927D+00
        ws(25) = 0.58899446001577348209064291557467D+00
        ws(26) = 0.59997306417858795963803114528512D+00
        ws(27) = 0.61072128591824473617606495030653D+00
        ws(28) = 0.62130784814478482880712790535164D+00
        ws(29) = 0.63180630447588873956956215476956D+00
        ws(30) = 0.64229796272838355370555156679952D+00
        ws(31) = 0.65287607284287284897401713573469D+00
        ws(32) = 0.66365208501540715881091262903579D+00
        ws(33) = 0.67476546925937180033662997699314D+00
        ws(34) = 0.68640009346197725550164278189123D+00
        ws(35) = 0.69881396205498708629681577020065D+00
        ws(36) = 0.71240086587979181121226089998029D+00
        ws(37) = 0.72784961785160771002061374798768D+00
        ws(38) = 0.74672624189177876410970508110376D+00
        ws(39) = 0.77502817250714707135621727448547D+00
        ws(40) = 0.88454806192712560046017324865269D+00
        endif
        if( n .eq. 41 ) then
        err = .202376868399427D-17
        xs( 1) = 0.12744827936908266983513410272721D-01
        xs( 2) = 0.66867760666297087118023972954110D-01
        xs( 3) = 0.16312531413295644263158425562589D+00
        xs( 4) = 0.29979493910768607319165312751779D+00
        xs( 5) = 0.47466818088320194603848482050754D+00
        xs( 6) = 0.68529277679230825545489987719680D+00
        xs( 7) = 0.92916099614029567740602913783269D+00
        xs( 8) = 0.12038406125652380211913095438370D+01
        xs( 9) = 0.15070520844555275181826977269780D+01
        xs(10) = 0.18367042973356654411564188306722D+01
        xs(11) = 0.21909027492621651664990808350688D+01
        xs(12) = 0.25679417387787816138812016057425D+01
        xs(13) = 0.29662887663317254231912424904453D+01
        xs(14) = 0.33845663592188581847927626861742D+01
        xs(15) = 0.38215342899520738643123707044611D+01
        xs(16) = 0.42760736519529987320515408345580D+01
        xs(17) = 0.47471733233267293782988702948246D+01
        xs(18) = 0.52339188213815445102103391559451D+01
        xs(19) = 0.57354832918533508289636189854721D+01
        xs(20) = 0.62511202869763261328040557645053D+01
        xs(21) = 0.67801579945543709722969584257864D+01
        xs(22) = 0.73219946380261845004984335475735D+01
        xs(23) = 0.78760948449715621868633635418751D+01
        xs(24) = 0.84419868617944501977889880575090D+01
        xs(25) = 0.90192605683924819912849552884158D+01
        xs(26) = 0.96075663182461421862702743421021D+01
        xs(27) = 0.10206614701140435836993347460777D+02
        xs(28) = 0.10816177406321988262885460284205D+02
        xs(29) = 0.11436089466639962363541247595431D+02
        xs(30) = 0.12066253309811574091228196985894D+02
        xs(31) = 0.12706645265451610737983288010502D+02
        xs(32) = 0.13357325535951618860688875168407D+02
        xs(33) = 0.14018453248753193954506375438996D+02
        xs(34) = 0.14690309294656360417736855423992D+02
        xs(35) = 0.15373331715482601388066333491957D+02
        xs(36) = 0.16068172607973240965888620534210D+02
        xs(37) = 0.16775794973987545314118066739536D+02
        xs(38) = 0.17497652105322578881483635689800D+02
        xs(39) = 0.18236064300824577526164665706141D+02
        xs(40) = 0.18995191944076250722064962327911D+02
        xs(41) = 0.19786778643226795912832759402378D+02
        ws( 1) = 0.32674508543273872952060396440287D-01
        ws( 2) = 0.75422339203641627242090493809977D-01
        ws( 3) = 0.11680019584238963472791397588738D+00
        ws( 4) = 0.15616700905172529651555434248359D+00
        ws( 5) = 0.19316759652324133417126205016635D+00
        ws( 6) = 0.22766146927399501318406575064486D+00
        ws( 7) = 0.25966834454519492134193884795421D+00
        ws( 8) = 0.28931040347061684124741452388933D+00
        ws( 9) = 0.31676391262187331006419173535519D+00
        ws(10) = 0.34222491235927232828704238431625D+00
        ws(11) = 0.36588797996917155555052567233074D+00
        ws(12) = 0.38793489216175744405290401243361D+00
        ws(13) = 0.40852988377999333578516113326637D+00
        ws(14) = 0.42781886392361987847160639595469D+00
        ws(15) = 0.44593073861893986960907998856367D+00
        ws(16) = 0.46297965015056797771247240339038D+00
        ws(17) = 0.47906742813388322293426231299298D+00
        ws(18) = 0.49428587847432810245299339907882D+00
        ws(19) = 0.50871875001694975542282133287164D+00
        ws(20) = 0.52244334771253668275639669199568D+00
        ws(21) = 0.53553183158595224896133050536658D+00
        ws(22) = 0.54805227293507738877509814986163D+00
        ws(23) = 0.56006954850604269718799301831465D+00
        ws(24) = 0.57164615134978839701317912334119D+00
        ws(25) = 0.58284299179712361954427515542611D+00
        ws(26) = 0.59372025914401321148173618929944D+00
        ws(27) = 0.60433841844898372517957520334443D+00
        ws(28) = 0.61475943140893363630952241047177D+00
        ws(29) = 0.62504832121397979162201105267703D+00
        ws(30) = 0.63527525823347955382856809464569D+00
        ws(31) = 0.64551844463386469261700521471951D+00
        ws(32) = 0.65586825820465802518336133658505D+00
        ws(33) = 0.66643345677539103117324053401207D+00
        ws(34) = 0.67735092547684659493270040499646D+00
        ws(35) = 0.68880194309788701916263208302929D+00
        ws(36) = 0.70104171495416931021845918180776D+00
        ws(37) = 0.71446055666777453322672061225585D+00
        ws(38) = 0.72974180575989716753316180922835D+00
        ws(39) = 0.74843920084814838506202008219613D+00
        ws(40) = 0.77650946876152325429740600450366D+00
        ws(41) = 0.88564969224432905633430003351125D+00
        endif
        if( n .eq. 42 ) then
        err = .733226121633904D-18
        xs( 1) = 0.12453900117061690779758864953094D-01
        xs( 2) = 0.65353478084633504284963284000081D-01
        xs( 3) = 0.15948121354049537700832833989338D+00
        xs( 4) = 0.29321897298726635115493017074048D+00
        xs( 5) = 0.46448004617789600117473541677808D+00
        xs( 6) = 0.67093279689618725698613906027819D+00
        xs( 7) = 0.91017741278463846683726679752180D+00
        xs( 8) = 0.11798719805565608739641742678403D+01
        xs( 9) = 0.14778095192807630496005948017115D+01
        xs(10) = 0.18019560838341431228308415981760D+01
        xs(11) = 0.21504621356734331178763584786086D+01
        xs(12) = 0.25216577629830696921264814894995D+01
        xs(13) = 0.29140395264438209027183764940016D+01
        xs(14) = 0.33262540378644381439727078240772D+01
        xs(15) = 0.37570813093055287097638135732576D+01
        xs(16) = 0.42054194734735191381290022399804D+01
        xs(17) = 0.46702715544285739836799309513425D+01
        xs(18) = 0.51507344210282231468817216332429D+01
        xs(19) = 0.56459897652803083123798741315995D+01
        xs(20) = 0.61552968238806472686109102147452D+01
        xs(21) = 0.66779865386583118378157898790583D+01
        xs(22) = 0.72134568852150473466648819296703D+01
        xs(23) = 0.77611691588625565718373109687487D+01
        xs(24) = 0.83206450749899720839004359100470D+01
        xs(25) = 0.88914646080400671881622690818372D+01
        xs(26) = 0.94732645565282625330624938222526D+01
        xs(27) = 0.10065737882735342914996895021975D+02
        xs(28) = 0.10668633940045481948826711441093D+02
        xs(29) = 0.11281759776938935145790887565097D+02
        xs(30) = 0.11904982807403946612053647143621D+02
        xs(31) = 0.12538235283469558431044618566354D+02
        xs(32) = 0.13181521230868933005799901985369D+02
        xs(33) = 0.13834926874373090803232659745929D+02
        xs(34) = 0.14498636200263203425257058226102D+02
        xs(35) = 0.15172954412215286927195684948629D+02
        xs(36) = 0.15858344138814642693997586950353D+02
        xs(37) = 0.16555483547731394408893281531959D+02
        xs(38) = 0.17265365209024853668229958672854D+02
        xs(39) = 0.17989479343646846980040913016005D+02
        xs(40) = 0.18730199616833892870041257616010D+02
        xs(41) = 0.19491785273680812395296053822993D+02
        xs(42) = 0.20286251304446956934273160320325D+02
        ws( 1) = 0.31930063179846417891153905138106D-01
        ws( 2) = 0.73730910282025835058454506900885D-01
        ws( 3) = 0.11424979174664576175852667602049D+00
        ws( 4) = 0.15287428580205925245659820452112D+00
        ws( 5) = 0.18925627944433249584473721975398D+00
        ws( 6) = 0.22324715863025872335956482269846D+00
        ws( 7) = 0.25485049724480175737505356979675D+00
        ws( 8) = 0.28417020352632816854425421299239D+00
        ws( 9) = 0.31136571912594254351239378803648D+00
        ws(10) = 0.33661925161962669922478059250043D+00
        ws(11) = 0.36011476455431194272809452023115D+00
        ws(12) = 0.38202619750716717298688448678046D+00
        ws(13) = 0.40251204583685291086931215715752D+00
        ws(14) = 0.42171390181113187879449711032005D+00
        ws(15) = 0.43975721722606065711196903390377D+00
        ws(16) = 0.45675313212257386255912728566317D+00
        ws(17) = 0.47280065758166251136422014874886D+00
        ws(18) = 0.48798881151434094660052118740951D+00
        ws(19) = 0.50239851311091650880445013097755D+00
        ws(20) = 0.51610417174585670019776465253762D+00
        ws(21) = 0.52917498197149236662176892279002D+00
        ws(22) = 0.54167597517577383051752017750890D+00
        ws(23) = 0.55366889400565947486955602058569D+00
        ws(24) = 0.56521295802083772179518584983728D+00
        ws(25) = 0.57636558576863812423194878977754D+00
        ws(26) = 0.58718313490727372673964362620738D+00
        ws(27) = 0.59772172201399341868211114473288D+00
        ws(28) = 0.60803819053246709503287536361280D+00
        ws(29) = 0.61819131260906508615569059627023D+00
        ws(30) = 0.62824334391163937374383723347352D+00
        ws(31) = 0.63826210979152882727661926657279D+00
        ws(32) = 0.64832390510759623794949675884782D+00
        ws(33) = 0.65851767620010062407704608035113D+00
        ws(34) = 0.66895130160197085799454347938455D+00
        ws(35) = 0.67976148253497471317024745896483D+00
        ws(36) = 0.69113027646259625117945816965311D+00
        ws(37) = 0.70331513994526925897857698956735D+00
        ws(38) = 0.71671112744541563205274330142905D+00
        ws(39) = 0.73201096110982776310007741958080D+00
        ws(40) = 0.75078772120834709308635778030011D+00
        ws(41) = 0.77904571266762222055053726403822D+00
        ws(42) = 0.88857760812621944775825302014268D+00
        endif
        if( n .eq. 43 ) then
        err = .273934693209740D-18
        xs( 1) = 0.12179981653908231209086765658492D-01
        xs( 2) = 0.63926747349982316724355040849522D-01
        xs( 3) = 0.15604393224844990897709110793566D+00
        xs( 4) = 0.28700747239210721909769528841582D+00
        xs( 5) = 0.45484190477470581348918989578557D+00
        xs( 6) = 0.65732778461292650337725715455027D+00
        xs( 7) = 0.89216772559257538445388865954938D+00
        xs( 8) = 0.11571073906215789646435325777152D+01
        xs( 9) = 0.14500116354182140622220375561859D+01
        xs(10) = 0.17689041051731613269083793099395D+01
        xs(11) = 0.21119810422002464736945024427385D+01
        xs(12) = 0.24776090020688279731923385097595D+01
        xs(13) = 0.28643138243899798035827866605590D+01
        xs(14) = 0.32707658268884659733569474047646D+01
        xs(15) = 0.36957642793734522293249717297795D+01
        xs(16) = 0.41382228472501556850979955227867D+01
        xs(17) = 0.45971567912754871924249507298104D+01
        xs(18) = 0.50716721552453775471642370062155D+01
        xs(19) = 0.55609568621214865288138238884215D+01
        xs(20) = 0.60642734906073810701307186412750D+01
        xs(21) = 0.65809534585284607250049854317861D+01
        xs(22) = 0.71103923538801353288823581536606D+01
        xs(23) = 0.76520461998791278597738312263626D+01
        xs(24) = 0.82054284981098753908044984064929D+01
        xs(25) = 0.87701079533168907973592450675425D+01
        xs(26) = 0.93457068399688853118903564206690D+01
        xs(27) = 0.99319000241350736183639775175327D+01
        xs(28) = 0.10528414707331890195598477708009D+02
        xs(29) = 0.11135031017302711100230874135718D+02
        xs(30) = 0.11751583642574561711544091258482D+02
        xs(31) = 0.12377964805780161651649152805934D+02
        xs(32) = 0.13014129015265801898550466770477D+02
        xs(33) = 0.13660100259368368342938389549182D+02
        xs(34) = 0.14315982673714522273631073430131D+02
        xs(35) = 0.14981976334355869275253334875784D+02
        xs(36) = 0.15658400941742387650832061067018D+02
        xs(37) = 0.16345732269735716032425257098806D+02
        xs(38) = 0.17044660567271781734947471973843D+02
        xs(39) = 0.17756189830284855443808490637947D+02
        xs(40) = 0.18481821786423739357631673136416D+02
        xs(41) = 0.19223943517153097408614472681416D+02
        xs(42) = 0.19986837539446005238593080297821D+02
        xs(43) = 0.20782639134123247945226064570157D+02
        ws( 1) = 0.31229025164511756163855237578795D-01
        ws( 2) = 0.72135946984300183721477800427318D-01
        ws( 3) = 0.11183967667819696309521025873143D+00
        ws( 4) = 0.14975477870160994050161305480011D+00
        ws( 5) = 0.18554138208685457273963168596067D+00
        ws( 6) = 0.21904546598639345340388846553020D+00
        ws( 7) = 0.25025744632891673210303954293670D+00
        ws( 8) = 0.27926539337117697897347510463457D+00
        ws( 9) = 0.30621349714646531396810743317387D+00
        ws(10) = 0.33127087159170350675177543950051D+00
        ws(11) = 0.35461095716198372694554602329174D+00
        ws(12) = 0.37639952299413009291003499283866D+00
        ws(13) = 0.39678877054011769704652595075492D+00
        ws(14) = 0.41591535710287001881260489153243D+00
        ws(15) = 0.43390070589537973980945690118767D+00
        ws(16) = 0.45085248660378782595451007937895D+00
        ws(17) = 0.46686655656166791369125436715835D+00
        ws(18) = 0.48202894492100085911479870785571D+00
        ws(19) = 0.49641766159695830167886840217060D+00
        ws(20) = 0.51010424231523841371040027296555D+00
        ws(21) = 0.52315502007051088949426550343072D+00
        ws(22) = 0.53563215688832859732517898086307D+00
        ws(23) = 0.54759448986706410055731342650862D+00
        ws(24) = 0.55909825130834057882775144013335D+00
        ws(25) = 0.57019772130946371461956895169216D+00
        ws(26) = 0.58094586756797634604768116874461D+00
        ws(27) = 0.59139502496379343304223510830528D+00
        ws(28) = 0.60159766949911932307282265454720D+00
        ws(29) = 0.61160735000255041423074589902306D+00
        ws(30) = 0.62147986002354891726231580026513D+00
        ws(31) = 0.63127476705372064532114225253627D+00
        ws(32) = 0.64105747653756353841343722686989D+00
        ws(33) = 0.65090211297355957119941581711768D+00
        ws(34) = 0.66089568747687684938034059760320D+00
        ws(35) = 0.67114437051519502964828873989300D+00
        ws(36) = 0.68178338511150499407561092938160D+00
        ws(37) = 0.69299356192498112158979807741354D+00
        ws(38) = 0.70503143709460059786730980455705D+00
        ws(39) = 0.71829155988328676390454009395561D+00
        ws(40) = 0.73346672059945063476952775408151D+00
        ws(41) = 0.75213074353156441342525063125713D+00
        ws(42) = 0.78029187506692684631137607971753D+00
        ws(43) = 0.88988254407120039937011675775901D+00
        endif
        if( n .eq. 44 ) then
        err = .110351057613292D-18
        xs( 1) = 0.11889194989028266943590887480720D-01
        xs( 2) = 0.62412136655862849430147661201281D-01
        xs( 3) = 0.15239505499685024819208948583609D+00
        xs( 4) = 0.28041464803613227166557774799038D+00
        xs( 5) = 0.44461575983419569689217131568854D+00
        xs( 6) = 0.64290163294050223836846333030239D+00
        xs( 7) = 0.87308814964778599548033723416977D+00
        xs( 8) = 0.11330187508410823156010623423837D+01
        xs( 9) = 0.14206389954416579370321580845453D+01
        xs(10) = 0.17340373008886280575359898906125D+01
        xs(11) = 0.20714611353970545776885103109569D+01
        xs(12) = 0.24313173870585292089272448083901D+01
        xs(13) = 0.28121637383004806378673523158911D+01
        xs(14) = 0.32126958051163808994001489606064D+01
        xs(15) = 0.36317330660034047089761080291572D+01
        xs(16) = 0.40682053262730103068151506733144D+01
        xs(17) = 0.45211405939694721066690424272178D+01
        xs(18) = 0.49896546919451414797923464410088D+01
        xs(19) = 0.54729426073472236193190766710745D+01
        xs(20) = 0.59702714126125479301301918351592D+01
        xs(21) = 0.64809745265720589764641141755544D+01
        xs(22) = 0.70044470808138587677536473440264D+01
        xs(23) = 0.75401421872193380287210757369315D+01
        xs(24) = 0.80875679490622154898944283131549D+01
        xs(25) = 0.86462851090040483679782789532516D+01
        xs(26) = 0.92159052769984301383994924998782D+01
        xs(27) = 0.97960897278203255652645194252104D+01
        xs(28) = 0.10386548802853789747941585786560D+02
        xs(29) = 0.10987041997307588565764930747282D+02
        xs(30) = 0.11597378867685094193756743539603D+02
        xs(31) = 0.12217420963280925505105971108261D+02
        xs(32) = 0.12847085082128425028394594721022D+02
        xs(33) = 0.13486348296112857995979735832116D+02
        xs(34) = 0.14135255415825683205171251518937D+02
        xs(35) = 0.14793929934234721845690653199958D+02
        xs(36) = 0.15462590115609369550248961566895D+02
        xs(37) = 0.16141573017550947898877419723384D+02
        xs(38) = 0.16831371361157117168979904952890D+02
        xs(39) = 0.17532692515276801021063137305063D+02
        xs(40) = 0.18246558677616245155280344583236D+02
        xs(41) = 0.18974492492870692948224871862571D+02
        xs(42) = 0.19718908293811002085372157884551D+02
        xs(43) = 0.20484130138922668573178879912376D+02
        xs(44) = 0.21282445983840537101852401782989D+02
        ws( 1) = 0.30484811882989501136981387610230D-01
        ws( 2) = 0.70442739037924340799720125909029D-01
        ws( 3) = 0.10928150067465233584727722869166D+00
        ws( 4) = 0.14644540274027854742923325728029D+00
        ws( 5) = 0.18160476223920836039007356002503D+00
        ws( 6) = 0.21460104815413637393301923752071D+00
        ws( 7) = 0.24541133384726897677944296208700D+00
        ws( 8) = 0.27410680603758191025048896750734D+00
        ws( 9) = 0.30081483744375048274354520777594D+00
        ws(10) = 0.32568969494463244460797891803458D+00
        ws(11) = 0.34889261035253388356905099529983D+00
        ws(12) = 0.37057972806564697836230025635853D+00
        ws(13) = 0.39089581559282898007580196391415D+00
        ws(14) = 0.40997179201081711433809111472087D+00
        ws(15) = 0.42792456673332523086428688045833D+00
        ws(16) = 0.44485812822102267139784994316297D+00
        ws(17) = 0.46086518805489513874393922018441D+00
        ws(18) = 0.47602895649633873280319608853956D+00
        ws(19) = 0.49042481479014024899283532623865D+00
        ws(20) = 0.50412177561465102822746302881372D+00
        ws(21) = 0.51718370273347767244496550779049D+00
        ws(22) = 0.52967030729219015144304237836883D+00
        ws(23) = 0.54163796179682958951324155842475D+00
        ws(24) = 0.55314038184383220354821659253581D+00
        ws(25) = 0.56422922648859082983173391017872D+00
        ws(26) = 0.57495466545688942770638590465283D+00
        ws(27) = 0.58536595861278499974995985346037D+00
        ws(28) = 0.59551209267326072774230499002678D+00
        ws(29) = 0.60544252416011340492823194095766D+00
        ws(30) = 0.61520808825002395943910192134029D+00
        ws(31) = 0.62486215377660752698596223458578D+00
        ws(32) = 0.63446214067325219550416886547765D+00
        ws(33) = 0.64407157767620601571888803968159D+00
        ws(34) = 0.65376298425663249953341250066339D+00
        ws(35) = 0.66362204961440020291667831328363D+00
        ws(36) = 0.67375393384386023118201902180663D+00
        ws(37) = 0.68429321825701683101713199439599D+00
        ws(38) = 0.69542056771631018350326818381209D+00
        ws(39) = 0.70739302394437541548886423960894D+00
        ws(40) = 0.72060665365703155277989259495512D+00
        ws(41) = 0.73575726935155449401588840406693D+00
        ws(42) = 0.75442343314368311242037749256642D+00
        ws(43) = 0.78260863609794226637413074762202D+00
        ws(44) = 0.89236921820697289777742187143659D+00
        endif
        if( n .eq. 45 ) then
        err = .382132909600786D-19
        xs( 1) = 0.11623466830934210062216525003366D-01
        xs( 2) = 0.61027743463352622787837138151968D-01
        xs( 3) = 0.14905868220505730178022198199403D+00
        xs( 4) = 0.27438368760819558054528126371347D+00
        xs( 5) = 0.43525626295481761034414681687442D+00
        xs( 6) = 0.62969073209181080197973562335632D+00
        xs( 7) = 0.85560555735003678300037037810729D+00
        xs( 8) = 0.11109324364138409569615682214368D+01
        xs( 9) = 0.13936891819492059477224336448726D+01
        xs(10) = 0.17020214059175308210228283939470D+01
        xs(11) = 0.20342209262400891306881256075840D+01
        xs(12) = 0.23887286930189709525430610540466D+01
        xs(13) = 0.27641285398924942921173170182143D+01
        xs(14) = 0.31591362865051643283894277609771D+01
        xs(15) = 0.35725871592563741408743182525965D+01
        xs(16) = 0.40034233113304513743161171580566D+01
        xs(17) = 0.44506823946206840681009225357886D+01
        xs(18) = 0.49134875950675929533116970726642D+01
        xs(19) = 0.53910392134639248315913146864602D+01
        xs(20) = 0.58826076921508828820768799761873D+01
        xs(21) = 0.63875279051066983474304107812914D+01
        xs(22) = 0.69051945084075912834887127257056D+01
        xs(23) = 0.74350581639436394910765540555763D+01
        xs(24) = 0.79766224837917206464337589381851D+01
        xs(25) = 0.85294415844020687957618940344671D+01
        xs(26) = 0.90931181823074707166016043212416D+01
        xs(27) = 0.96673022036637960674932965933425D+01
        xs(28) = 0.10251689918501997286533154247326D+02
        xs(29) = 0.10846023649019081139822789521083D+02
        xs(30) = 0.11450092143128644150034059026461D+02
        xs(31) = 0.12063731755218018086907261957190D+02
        xs(32) = 0.12686828643596699726139070696341D+02
        xs(33) = 0.13319322290760782349372873590928D+02
        xs(34) = 0.13961210798339743006622731233279D+02
        xs(35) = 0.14612558637785809741910985577776D+02
        xs(36) = 0.15273507912665027322732475193982D+02
        xs(37) = 0.15944294827474443309958760058136D+02
        xs(38) = 0.16625274201889800718324242453255D+02
        xs(39) = 0.17316957042906785846346494639365D+02
        xs(40) = 0.18020070641992232598720119721597D+02
        xs(41) = 0.18735660739993410418049372560367D+02
        xs(42) = 0.19465281250996899252074709961002D+02
        xs(43) = 0.20211395378670429101395813863218D+02
        xs(44) = 0.20978444293476373948857500811613D+02
        xs(45) = 0.21779037236621956083756526495197D+02
        ws( 1) = 0.29804694828696071399636996897491D-01
        ws( 2) = 0.68894691955267394740134702988688D-01
        ws( 3) = 0.10694102316503615747881912914532D+00
        ws( 4) = 0.14341507826483580786163595022503D+00
        ws( 5) = 0.17799671063829460678835169837889D+00
        ws( 6) = 0.21052348275884933927310158758365D+00
        ws( 7) = 0.24096024990285400952515754489375D+00
        ws( 8) = 0.26936246897642979443463724676026D+00
        ws( 9) = 0.29584166970100968395173289748352D+00
        ws(10) = 0.32053804753625472001955003390251D+00
        ws(11) = 0.34360126626696043981189123813751D+00
        ws(12) = 0.36517842809536810900521877721890D+00
        ws(13) = 0.38540744934196224907203911404048D+00
        ws(14) = 0.40441412510361643030491643515346D+00
        ws(15) = 0.42231150396098571597039332442667D+00
        ws(16) = 0.43920057505154672790858065262709D+00
        ws(17) = 0.45517159589693105864355916060718D+00
        ws(18) = 0.47030563755886095387509632894068D+00
        ws(19) = 0.48467610095860975169213932375316D+00
        ws(20) = 0.49835007911821673233893972701495D+00
        ws(21) = 0.51138951871167476099812595249175D+00
        ws(22) = 0.52385218220160806057309919613826D+00
        ws(23) = 0.53579243815189199419416402314624D+00
        ws(24) = 0.54726191929250196631183519233866D+00
        ws(25) = 0.55831009121739071272748333798586D+00
        ws(26) = 0.56898477349807918526935108758096D+00
        ws(27) = 0.57933265262880495649958728015497D+00
        ws(28) = 0.58939982485305777458200563729005D+00
        ws(29) = 0.59923240830923572937809384110268D+00
        ws(30) = 0.60887726972992503966981127372548D+00
        ws(31) = 0.61838292321673832777555161041082D+00
        ws(32) = 0.62780068064356614526560215107849D+00
        ws(33) = 0.63718617066241529926272817273673D+00
        ws(34) = 0.64660140640985747982343982423330D+00
        ws(35) = 0.65611769042939027227576246910305D+00
        ws(36) = 0.66581983802891597148311648387913D+00
        ws(37) = 0.67581255985571112112727898645374D+00
        ws(38) = 0.68623056131956250375845451510143D+00
        ws(39) = 0.69725548537914888350509009852378D+00
        ws(40) = 0.70914676024151625249404875778972D+00
        ws(41) = 0.72230542191971299414834335057176D+00
        ws(42) = 0.73743778426502732137257130238700D+00
        ws(43) = 0.75614426631302991904408960469256D+00
        ws(44) = 0.78458343017051024487192687899187D+00
        ws(45) = 0.89442458392969221258989416250686D+00
        endif

        return
        end
c
c
c
c
	subroutine numthetasix(numtets,nlams)
        implicit none
        integer *8 nlams
        integer *8 numtets(nlams)
c
c       This routine returns the number of Fourier modes needed in the
c       phi integral for each of the discrete lambda values given
c       by the quadratures above.
c
c       Input:
c	nlams - number of nodes in the lambda quadrature.  This must
c	  be one of [9,15,22,29].
c
c       Output:
c	numtets(i) - number of Fourier modes needed for phi
c                    integral with lambda_i.
c
c       Approximate accuracies of the quadrature:
c
c	NLAMS	maximum error
c
c        9     0.5D-03
c       15     0.5D-06
c       22     0.5D-09
c       29     0.5D-12

ci
      if(nlams.eq.9) then
         numtets( 1) = 6
         numtets( 2) = 9
         numtets( 3) = 12
         numtets( 4) = 13
         numtets( 5) = 17
         numtets( 6) = 24
         numtets( 7) = 22
         numtets( 8) = 13
         numtets( 9) = 8
      endif
      if(nlams.eq.15) then
         numtets( 1) = 7
         numtets( 2) = 9
         numtets( 3) = 13
         numtets( 4) = 21
         numtets( 5) = 21
         numtets( 6) = 21
         numtets( 7) = 21
         numtets( 8) = 27
         numtets( 9) = 27
         numtets(10) = 27
         numtets(11) = 31
         numtets(12) = 31
         numtets(13) = 15
         numtets(14) = 11
         numtets(15) = 5
      endif
      if(nlams.eq.22) then
         numtets( 1) = 7
         numtets( 2) = 11
         numtets( 3) = 11
         numtets( 4) = 15
         numtets( 5) = 17
         numtets( 6) = 25
         numtets( 7) = 25
         numtets( 8) = 27
         numtets( 9) = 27
         numtets(10) = 35
         numtets(11) = 35
         numtets(12) = 35
         numtets(13) = 41
         numtets(14) = 41
         numtets(15) = 41
         numtets(16) = 35
         numtets(17) = 31
         numtets(18) = 31
         numtets(19) = 31
         numtets(20) = 21
         numtets(21) = 11
         numtets(22) = 3
      endif
      if(nlams.eq.29) then
         numtets( 1) = 3
         numtets( 2) = 5
         numtets( 3) = 5
         numtets( 4) = 7
         numtets( 5) = 7
         numtets( 6) = 11
         numtets( 7) = 11
         numtets( 8) = 11
         numtets( 9) = 13
         numtets(10) = 13
         numtets(11) = 15
         numtets(12) = 15
         numtets(13) = 17
         numtets(14) = 19
         numtets(15) = 19
         numtets(16) = 21
         numtets(17) = 23
         numtets(18) = 23
         numtets(19) = 23
         numtets(20) = 25
         numtets(21) = 25
         numtets(22) = 27
         numtets(23) = 29
         numtets(24) = 29
         numtets(25) = 31
         numtets(26) = 33
         numtets(27) = 33
         numtets(28) = 35
         numtets(29) = 11
      endif
      return
      end
	subroutine numthetahalf_isep2(numtets,nlams)
        integer *8 nlams,numtets(nlams)
c
c This routine returns the number of Fourier modes needed in the
c phi integral for each of the discrete lambda values given
c by Norman's quadratures. (see weights.f).
c
c Input arguments:
c	nlams - number of nodes in the lambda quadrature.  This must
c	  be an integer in the range [5,10,20,30,40].
c
c Output arguments:
c	numtest(i) - number of Fourier modes needed for phi
c                    integral with lambda_i.
c
c Approximate accuracies of the quadrature:
c
c	NLAMS	maximum error
c
c        5     1.2D-02
c       10     4.0D-05
c       20     2.7D-08
c       30     1.1D-10
c       40     1.1D-13
c
      if(nlams.eq.9) then
         numtets( 1) = 2
         numtets( 2) = 3
         numtets( 3) = 5
         numtets( 4) = 6
         numtets( 5) = 6
         numtets( 6) = 4
         numtets( 7) = 3
         numtets( 8) = 2
         numtets( 9) = 1
      endif
      if(nlams.eq.15) then
         numtets( 1) = 3
         numtets( 2) = 4
         numtets( 3) = 5
         numtets( 4) = 6
         numtets( 5) = 7
         numtets( 6) = 7
         numtets( 7) = 9
         numtets( 8) =9
         numtets( 9) =9
         numtets(10) =9
         numtets(11) =9
         numtets(12) =9
         numtets(13) =7
         numtets(14) =7
         numtets(15) =2
      endif
      if(nlams.eq.22) then
         numtets( 1) = 3
         numtets( 2) = 5
         numtets( 3) = 6
         numtets( 4) = 8
         numtets( 5) =10
         numtets( 6) =10
         numtets( 7) =10
         numtets( 8) =11
         numtets( 9) =11
         numtets(10) =11
         numtets(11) =12
         numtets(12) =12
         numtets(13) =12
         numtets(14) =13
         numtets(15) =13
         numtets(16) =13
         numtets(17) =13
         numtets(18) =13
         numtets(19) =11
         numtets(20) =11
         numtets(21) =10
         numtets(22) =3
      endif
      if(nlams.eq.29) then
         numtets( 1) = 4
         numtets( 2) = 6
         numtets( 3) = 8
         numtets( 4) = 10
         numtets( 5) = 10
         numtets( 6) = 12
         numtets( 7) = 12
         numtets( 8) = 14
         numtets( 9) = 14
         numtets(10) = 14
         numtets(11) = 14
         numtets(12) = 16
         numtets(13) = 16
         numtets(14) = 16
         numtets(15) = 16
         numtets(16) = 16
         numtets(17) = 16
         numtets(18) = 16
         numtets(19) = 16
         numtets(20) = 16
         numtets(21) = 16
         numtets(22) = 16
         numtets(23) = 16
         numtets(24) = 16
         numtets(25) = 16
         numtets(26) = 16
         numtets(27) = 16
         numtets(28) = 14
         numtets(29) =3
      endif
      return
      end
c
